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Abstract 


This  paper  documents  the  basic  Computable  General  Equilibrium 
(CGE)  model  of  the  U.S.  economy  developed  at  the  Economic 
Research  Service  (ERS) ,  USDA.  The  paper  both  describes  the  model 
equations  in  detail  and  how  the  model  is  "benchmarked”  to  a  base 
data  set.  The  paper  also  lists  the  computer  program  used  to 
implement  the  model.  The  objective  of  the  CGE  work  program  at 
ERS  is  to  provide  a  multisectoral  framework  for  analyzing  the 
effect  of  changes  in  agricultural  policies  and  exogenous  shocks 
on  the  farm  sector,  on  the  rural  economy,  on  related 
nonagricultural  sectors,  and  on  the  rest  of  the  economy.  The 
basic  model  has  provided  a  starting  point  for  a  variety  of 
extensions  and  applications  exploring  a  number  of  policy  issues. 
To  date,  work  has  largely  focused  on  issues  of  agricultural  trade 
policy  and  the  effect  of  alternative  domestic  policies. 
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The  USDA/ERS 

Computable  General  Equilibrium  (CGE) 
Model  of  the  United  States 

Sherman  Robinson 
Maureen  Kilkenny 
Kenneth  Hanson 

Introduction 

This  paper  documents  a  basic  Computable  General  Equilibrium  (CGE) 
model  of  the  U.S.  economy  emphasizing  agriculture  and 
international  trade. ^  Different  versions  of  the  basic  CGE  model 
have  been  used  at  the  USDA  to  investigate  a  number  of  policy 
issues.  To  date,  work  has  focused  on  issues  of  trade  policy.  A 
10-sector  version  of  the  model  has  been  used  to  analyze  the 
impact  of  different  proposals  for  liberalizing  domestic  and 
border  policies  concerning  agriculture  that  have  been  suggested 
as  part  of  the  current  negotiations  in  the  Uruguay  Round 
(1986-90)  of  the  General  Agreement  on  Tariffs  and  Trade  (GATT) 

An  early  version  of  the  model  was  also  used  to  analyze  the  impact 
on  the  structure  of  the  U.S.  economy  of  macro  shocks  in  the 
1982-86  period  by  Adelman  and  Robinson  (1988).  A  different 
version  of  the  same  model  was  also  used  to  analyze  the  impact  on 
the  economy  of  cutting  defense  expenditures  by  Roland-Holst , 
Robinson,  and  Tyson  (1988).  Work  underway  at  the  International 
Trade  Commission  to  develop  an  in-house  CGE  modeling  capability 
starting  from  the  USDA  model  is  discussed  in  Roland-Holst  and 
Tokarick  (1989). 

Work  is  underway  at  the  USDA  to  expand  the  model  to  include  more 
sectoral  detail  and  to  extend  the  specification  in  new 
directions.^  The  objective  is  to  provide  a  multisectoral 


^The  model  was  developed  at  the  Economic  Research  Service 
(ERS) ,  U.S.  Department  of  Agriculture  (USDA).  Work  on  the  model 
was  part  of  the  Intersectoral  Policy  and  Performance  Project  in 
the  National  Aggregate  Analysis  Section,  National  Economy  and 
History  Branch,  Agriculture  and  Rural  Economy  Division  (NAA/NEH/ 
ARED) . 

^See  Robinson,  Kilkenny,  and  Adelman  (1989)  and  Kilkenny  and 
Robinson  (1988,  1990).  For  surveys  of  other  analyses  of 
agricultural  trade  liberalization  using  CGE  models,  see  Robinson 
(1990)  and  Hertel  (1990). 

%hese  extensions  are  discussed  below. 
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framework  for  analyzing  the  impact  of  changes  in  agricultural 
policies  and  exogenous  shocks  on  the  farm  sector,  on  the  rural 
economy,  on  related  nonagricultural  sectors,  and  on  the  rest  of 
the  economy. 

The  USDA  CGE  model  is  part  of  a  long  tradition  of  CGE  models  of 
the  United  States.  These  models  focused  on  issues  such  as  public 
finance,  energy,  industrial  trade,  the  impact  of  import  quotas, 
and  the  costs  of  pollution  control.  Examples  include:  Ballard, 
Fullerton,  Shoven,  and  Whalley  (1985) ;  Hertel  and  Tsigas  (1988) ; 
Hudson  and  Jorgenson  (1974) ;  Shoven  and  Whalley  (1984)  ;  de  Melo 
and  Tarr  (forthcoming) ;  Goulder  and  Eichengreen  (1989) ;  and 
Jorgenson  and  Wilcoxen  (1989) . 

A  variety  of  approaches  have  been  used  to  implement  CGE  models. 
The  USDA  model  is  implemented  using  a  software  package  called 
GAMS  (General  Algebraic  Modeling  System) The  GAMS  software 
represents  an  important  advance  in  implementing  CGE  models 
because  its  algebraic  language  provides  a  concise  way  to  specify 
model  equations.  The  GAMS  program  provides  complete  model 
documentation,  and  the  model  specification  is  independent  of  the 
solution  algorithm.  In  the  past,  modelers  developed  their  own 
application-specific  software,  which  made  the  models  difficult  or 
impossible  to  transfer  to  others.  A  CGE  model  written  in  the 
GAMS  equation  language  can  be  run  on  a  wide  variety  of  computers, 
including  PC's. 

The  next  two  sections  provide  a  brief  description  of  the  CGE 
model  and  its  overall  structure  in  a  social  accounting  framework. 
A  complete  description  of  the  model  equations  is  presented  in  the 
section  following  these  two  sections.  We  then  discuss  how  the 
model  is  calibrated  using  data  from  a  balanced  Social  Accounting 
Matrix  (SAM)  for  the  U.S.  economy,  and  describe  how  we  implement 
the  model  in  the  GAMS  software.  Finally,  we  discuss 
applications,  variations,  and  alternative  model  specifications. 


Major  Features  of  the  CGE  Model 

A  CGE  model  simulates  the  working  of  a  market  economy  in  which 
prices  and  quantities  adjust  to  clear  markets  for  products  and 
factors.  The  model  specifies  the  behavior  of  optimizing 
consumers  and  producers  in  the  market  economy.  It  also  includes 
the  government  as  an  explicit  agent  (although  not  an  optimizer) 
and  captures  all  transactions  in  the  circular  flow  of  income. 

The  model  is  constructed  to  focus  on  issues  of  international 
trade  and  incorporates  imperfect  substitution  between  imports  and 
domestic  goods  in  demand.  There  is  a  parallel  treatment  of 
export  supply,  with  imperfect  transformability  between  production 


^The  GAMS  package  is  described  in  detail  in  Brooke, 

Kendrick,  and  Meeraus  (1988) .  The  first  CGE  model  implemented  in 
GAMS  was  a  model  of  Cameroon  described  in  Condon,  Dahl,  and 
Devarajan  (1987) . 
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for  domestic  and  foreign  markets  at  the  sectoral  level.  These 
features  are  characteristic  of  a  large  number  of  CGE  models 
applied  to  developing  countries  to  study  issues  of  structural 
adjustment.^  The  theoretical  properties  of  this  model  with 
"semitradables"  have  been  extensively  documented,  and  it  can  be 
seen  as  an  extension  of  the  Salter-Swan  "Australian"  trade  model, 
which  incorporates  nontraded  goods. ^ 

This  treatment  of  exports  and  imports  realistically  insulates  the 
domestic  price  system  from  changes  in  world  prices  of  sectoral 
substitutes.  The  model  also  makes  the  "small  country"  assumption 
on  the  import  side,  assuming  that  the  United  States  cannot  affect 
world  prices  of  its  imports.  On  the  export  side,  we  assume 
downward  sloping  world  demand  functions  for  some  U.S. 
agricultural  commodities.  All  other  exports  have  fixed  world 
prices . 

Each  sector  produces  a  composite  commodity  that  can  be 
transformed  into  an  export  or  a  commodity  sold  on  the  domestic 
market.  Each  industry's  output  is  produced  according  to  a 
production  function  which  uses  primary  and  intermediate  inputs. 
Sectoral  input  demands  are  derived  from  first  order  conditions 
for  profit  maximization. 

Two  modes  of  market  behavior  for  primary  factors  (labor,  capital, 
and  land)  may  be  modeled.  In  a  "shortrun"  version,  capital  is 
assumed  to  be  sectorally  fixed,  and  the  final  equilibrium  will 
have  sectorally  differentiated  rental  rates.  In  a  "longrun" 
version,  all  factors  are  mobile  and  average  factor  returns  adjust 
to  clear  factor  markets  with  full  employment. 

Aggregate  domestic  demand  in  the  model  has  four  components: 
consumption,  intermediate  demand,  government,  and  investment 
(including  inventory  change).  Household  expenditure  functions 
are  derived  from  utility  maximization.  Each  household  pays 
income  taxes  to  the  government  and  saves  a  proportion  of  its 
income.  Intermediate  demand  is  given  by  fixed  input-output 
coefficients.  For  the  government,  aggregate  real  spending  on 
goods  and  services  is  exogenous.  Inventory  demand  by  sector  is  a 
fixed  proportion  of  domestic  output.  The  model  distinguishes 
fixed  investment  by  sector  of  destination  and  demand  for 
investment  goods  by  sector  of  origin.  Investment  demand  by 
sector  of  origin  is  translated  from  investment  demand  by  sector 
of  destination  by  using  a  capital  composition  matrix. 

The  CGE  model  includes  the  major  macro  balances:  savings- 
investment,  government  deficit,  and  the  balance  of  trade. 


^For  surveys  of  this  literature,  see  Robinson  ( 1989a, b)  and 
de  Melo  (1988) .  There  are  also  a  number  of  multi-country  CGE 
models.  For  a  survey,  see  Shoven  and  Whalley  (1984). 

^See  Salter  (1959),  Swan  (1960),  and  Armington  (1969).  The 
properties  of  this  approach  are  explored  by  Dervis,  de  Melo,  and 
Robinson  (1982);  de  Melo  and  Robinson  (1981,  1985,  1989); 
Devarajan,  Lewis,  and  Robinson  (1990);  and  Brown  (1987). 


3 


Aggregate  investment  is  either  set  exogenously  from  a  macro  model 
or  is  "savings  driven."  Aggregate  savings  is  the  sum  of 
enterprise-retained  earnings  plus  capital  consumption  allowance, 
household  saving,  government  saving,  and  foreign  saving. 
Government  saving  is  the  difference  between  revenue  and  spending. 
Alternative  approaches  to  reconciling  aggregate  savings  and 
investment  are  discussed  below. 

In  the  balance  of  trade  equation,  the  value  of  imports  at  world 
prices  must  equal  the  value  of  exports  at  world  prices  plus 
foreign  savings,  net  remittances,  and  net  foreign  borrowing  by 
the  U.S.  Government.  Two  alternative  equilibrating  mechanisms 
are  possible.  First,  the  balance  of  trade  is  specified 
exogenously  and  the  real  exchange  rate  adjusts  to  achieve 
equilibrium.  Second,  the  exchange  rate  is  exogenous  and  the 
balance  of  trade  is  assumed  to  adjust. 

The  CGE  model  solves  only  for  relative  prices.  We  choose  as  the 
numeraire  price  index  the  GNP  price  deflator.  Given  the  choice 
of  numeraire,  the  model  solves  for  all  relative  factor  returns 
and  prices  that  clear  the  markets  for  factors  and  products.  The 
model  also  solves  for  the  equilibrium  value  of  the  real  exchange 
rate,  given  the  exogenously  set  balance  of  trade. 


SAM  Structure  of  the  Model 

A  Social  Accounting  Matrix  (SAM)  provides  a  tabular  snapshot  of 
the  economy  at  one  point  in  time.  Figure  1  presents  a 
descriptive  SAM  for  the  United  States  that  shows  the  transactions 
among  agents  in  the  economy  captured  in  the  CGE  model. ^  The 
structure  of  the  SAM  is  consistent  with  the  U.S.  National  Income 
and  Product  Accounts  (NIPA) .  The  treatment  of  exports  as  a 
delivery  from  activities  to  the  rest  of  the  world,  rather  than 
going  through  the  commodity  account,  reflects  the  model's 
specification  of  producers  as  "transforming"  goods  for  delivery 
to  the  domestic  and  export  markets.  This  treatment  has  the  added 
advantage  of  making  the  commodity  account  in  the  SAM  measure  the 
trade-theory  notion  of  "absorption,"  or  total  supply  of  goods  to 
the  domestic  economy.® 


^For  an  introduction  to  Social  Accounting  Matrices,  see  King 
(1985)  and  United  Nations  (1968).  The  seminal  work  was  done  by 
Richard  Stone  and  is  described  in  Stone  (1986) .  Pyatt  and  Round 
(1985)  provide  a  number  of  examples  of  the  uses  of  SAM's.  Hanson 
and  Robinson  (1989)  provide  the  mapping  for  the  United  States 
from  the  NIPA  to  a  SAM  framework. 

®In  the  U.S.  input-output  accounts,  exports  are  part  of  the 
commodity  account.  A  "make"  matrix  is  used  to  transform 
activities  to  commodities,  with  all  intermediate  and  final 
demands  (including  exports)  specified  as  demands  for  commodities. 
Our  treatment,  separating  export  and  domestic  demand,  is 
consistent  with  our  modeling  perspective. 
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Figure  1--A  Descriptive  Social  Accounting  Matrix  (SAM) 
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Each  nonzero  cell  in  the  SAM  represents  the  value  of  an  economic 
transaction  between  actors.  The  model  equations  describe  every 
entry  in  the  SAM.  The  accounts  in  the  SAM  effectively  define  the 
transactions  and  income  flows  among  five  basic  actors  in  the 
economy:  suppliers/enterprises,  households,  government,  capital 
account,  and  rest  of  world.  A  row  documents  the  income  to  an 
account,  the  corresponding  column  documents  the  outflow,  and  the 
row  and  column  sums  must  balance  for  each  account.  In 
equilibrium,  this  balance  implies:  (1)  costs  (plus  distributed 
earnings)  exhaust  revenues  for  producers,  (2)  expenditure  (plus 
taxes  and  savings)  equals  income  for  each  agent  in  the  model,  and 
(3)  demand  equals  supply  of  each  commodity. 

The  first  two  rows  and  columns  of  the  SAM  capture  the  workings  of 
the  product  and  factor  markets.  The  row  of  the  commodity  account 
describes  the  domestic  product  market,  with  the  supply  to 
domestic  users.  The  column  of  the  commodity  account  keeps  track 
of  absorption,  which  equals  the  value  of  domestic  products  sold 
on  the  domestic  market,  and  imports,  including  tariffs. 

Column  two  describes  the  demand  for  factors  of  production  and 
intermediate  inputs.  Producers  pay  out  value  added  to  factors 
and  indirect  taxes  to  government  down  the  column,  and  sell  goods 
on  the  domestic  and  foreign  markets  along  the  row.  Export 
subsidies  are  seen  as  a  payment  by  government  to  producers. 
Exports  and  imports  in  the  account  for  the  rest  of  the  world  are 
valued  in  world  market  prices  times  the  exchange  rate. 

The  next  two  rows  and  columns  (3  and  4)  describe  the  payment  of 
value  added  to  primary  factors  and  its  distribution  to 
institutional  actors.  The  last  five  rows  and  columns  (5  to  9) 
describe  inter-institutional  transfers  and  the  generation  of 
demand  for  goods  in  the  product  markets.  The  last  three  accounts 
(7  to  9)  capture  the  major  macro  balances:  government  deficit, 
savings-investment ,  and  balance  of  trade. 

Three  types  of  transactions  occur  among  the  actors.  First,  there 
are  "market  transactions,"  with  goods  and  services  (including 
factor  services)  flowing  from  rows  to  columns  and  corresponding 
payments  flowing  from  columns  to  rows.  These  are  given  in  the 
first  two  rows  and  columns  of  the  SAM  plus  the  last  row  and 
column.  Second,  there  are  "transfers,"  either  voluntary  or 
involuntary,  involving  nominal  flows  from  column  accounts  but  no 
real  flows  from  the  row  accounts.  Accounts  3  to  7  involve  this 
type  of  transaction,  essentially  mapping  the  flow  of  funds  in  the 
economy.  Tax  payments  can  be  viewed  as  involuntary  transfers, 
while  the  rest  can  be  seen  as  voluntary. 

Finally,  there  are  "financial  transactions."  In  the  SAM,  these 
are  all  captured  in  the  single  "capital"  account,  which 
summarizes  the  workings  of  all  financial  markets.  This  account 
collects  savings  from  the  various  actors  along  the  row  and  uses 
the  proceeds  to  purchase  capital  goods  ("investment")  in  cell 
(1,8).  In  the  capital  account  row,  agents  presumably  receive 
title  to  assets  in  return  for  depositing  their  savings. 

Financial  transactions  in  the  capital  account  implicitly  define 
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the  market  for  new  assets,  with  the  supply  of  new  assets  equaling 
the  value  of  aggregate  investment.  The  CGE  model,  however,  is 
defined  only  in  terms  of  flows  and  determines  a  flow  equilibrium 
for  a  single  period.  The  model  has  no  assets,  money,  interest 
rates,  expectations,  or  dynamics. 


Equations  of  the  CGE  Model 

The  order  of  the  presentation  of  the  equations  follows  the 
generation  and  flow  of  income  from  producers  to  households. 

First,  we  present  equations  defining  the  price  system,  followed 
by  equations  describing  production  and  the  generation  of  value 
added.  The  next  block  of  equations  describes  the  mapping  of 
value  added  into  institutional  income.  The  following  block 
completes  the  circular  flow,  describing  the  demand  for  goods  by 
the  various  actors.  Finally,  there  are  a  number  of  "system 
constraints"  that  the  model  economy  must  satisfy.  These  include 
market-clearing  conditions  and  macro  "closure"  equations.  A 
summary  table  of  all  the  equations  is  provided  in  Appendix  1. 

In  the  basic  model,  the  U.S.  economy  is  disaggregated  into  10 
sectors.  There  are  three  primary  factors  of  production,  three 
categories  of  households,  and  three  "institutions"  which  serve  as 
intermediaries  in  mapping  factor  income  to  household  income. 

Table  1  lists  the  various  indices,  describes  the  sets  they 
represent,  and  presents  the  definitions  of  all  variables  and 
parameters.  Tables  2  through  6  list  the  model  equations  as  they 
are  described.  Following  the  equation  number  in  these  tables  is 
an  index,  or  number,  for  counting  equations.  The  counting  of 
equations  and  variables  is  tabulated  in  table  7. 

GAMS  notation  is  used  throughout  this  section.  While  close  to 
standard  algebra,  GAMS  has  some  differences.  There  are  a  few 
differences  in  operator  notation.  The  summation  operator  is 
written  "SUM,"  with  the  index  of  summation  and  the  arguments 
written  in  parentheses  separated  by  a  comma.  For  example:  S.  X. 
is  written  SUM(i,  X(i))  in  GAMS.  The  product  operator  is  "PROD," 
and  the  algebraic  expression  H-  X-  is  written  PR0D(i,  X(i)).  The 
GAMS  language  allows  a  great  deal  of  flexibility  in  describing 
equations,  including  inequalities  and  Boolean  relationships.  We 
do  not  need  these  extensions  in  the  presentation  of  the  basic 
model  equations.  Some  are  used  in  the  listing  of  the  GAMS 
version  of  the  model  given  in  Appendix  2. 

Some  notational  conventions  are  followed  consistently. 

Endogenous  variables  are  presented  in  upper  case,  while 
parameters,  exogenous  variables,  and  indices  are  always  lower 
case.  In  a  few  equations,  an  index  is  replaced  by  a  specific 
entry  (given  in  quotes) . 
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Table  1--Def initions  of  indices,  variables,  and  parameters 


Indices 


i.  j 

Sectors 

im 

Sectors 

with  imports 

imn 

Sectors 

without  imports: 

im  + 

inm  =  i 

ie 

Sectors 

with  exports 

ien 

Sectors 

without  exports: 

ie  + 

ien  =  i 

ied 

Sectors 

with  world  export 

demand  functions 

f 

Factors 

of  production:  labor. 

capital,  and  land 

ins 

Institutions:  labr,  prop. 

and 

ent  (Labor,  property,  and  enterprises) 

hh 

Households 

Prices  block 

EXR 

P(i) 

PD(i) 

PE(i) 

PINDEX 

PK(i) 

PM(i) 

PVA(i) 

PWE(i) 

PX(i) 


Variables 


Exchange  rate 
Price  of  composite  good 
Domestic  sales  price 
Domestic  price  of  exports 
GNP  deflator 

Price  of  a  unit  of  capital  in  each  sector 

Domestic  price  of  imports 

Value-added  price 

World  price  of  exports 

Output  price 


Production  block 


E(i) 

FDSC(i,f ) 

INT(i) 

M(i) 

WF(f ) 

X(i) 

XD(i) 

XXD(i) 


Exports 
Factor  demand 
Intermediate  input  demand 
Imports 

Average  factor  price 
Composite  goods  supply 
Domestic  output 
Domestic  sales 


Income  and  expenditure  blocks 


CD(i) 

DEPRECIA 

DK(i) 

DST(i)  , 

ENTSAV 

ENTTAX 

FBOR 

FXDINV 

FSAV 

GD(i) 

GDTOT 

GENT 

GNPVA 

GOVSAV 

GR 

HHSAV 

HHT 

ID(i) 

INDTAX 


Final  demand  for  private  consumption 

Total  depreciation  charges 

Fixed  investment  by  sector  of  destination 

Inventory  investment  by  sector 

Enterprise  savings 

Enterprise  tax  revenue 

Net  foreign  borrowing 

Fixed  capital  investment 

Foreign  savings 

Final  demand  for  government  consumption 

Aggregate  real  government  consumption 

Transfer  payments-  from  government  to  enterprises 

Nominal  GNP  or  value  added  in  market  prices 

Government  savings 

Total  government  revenue 

Total  household  savings 

Government  transfer  payments  to  households 
Final  demand  for  investment  goods 
Total  indirect  tax  revenue 


c 

t 

i 

i 


Continued-- 
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Table  l--DGfinitions  of  indices,  variables,  and  parameters--Continued 


INVEST 

Total  investment 

NETSUB 

Total  export  subsidies 

REMIT 

Net  remittances  from  abroad 

RGNP 

Real  GNP 

SAVINGS 

Total  savings 

SSTAX 

Social  security  tax  revenue 

TARIFF 

Tariff  revenue 

TOTHHTAX 

Household  tax  revenue 

YFCTRCf ) 

Factor  Income 

YH(hh) 

Household  income 

YINST(ins) 

Institutional  income 

ac(lm) 

Parameters 

CES  function  shift  parameter 

add) 

Production  function  shift  parameter 

alphad ,  f ) 

Share  parameter  in  production  function 

atde) 

GET  function  shift  parameter 

clesd,hh) 

Household  expenditure  shares 

delta( im) 

CES  function  share  parameter 

deprd) 

Depreciation  rate 

dstrd) 

Ratio  of  inventory  investment  to  domestic  output 

econstded) 

Export  demand  function  shift  parameter 

esr 

Enterprise  saving  rate 

etr 

Enterprise  tax  rate 

fs(f) 

Aggregate  factor  supply 

gaimade) 

GET  function  share  parameter 

glesd) 

Government  expenditure  shares 

htax(hh) 

Household  income  tax  rate 

itnatd,  j) 

Capital  composition  matrix 

iod,  j) 

Input-output  coefficients 

itaxd) 

Indirect  business  tax  rate 

kishd) 

Shares  of  investment  by  sector  of  destination 

mps (hh) 

Household  saving  rate 

pwmdm) 

World  price  of  imports 

pwseded) 

World  price  of  export  substitutes 

rhocdm) 

CES  function  exponent 

rhotde) 

CET  function  exponent 

rhsh(hh) 

Household  remittance  share 

sintyh(hh, ins ) 

Household  distribution  of  institutional  income 

sstr 

Social  security  tax  rate 

tno(  im) 

Tariff  rate  on  imports 

tmreal(im) 

Real  tariff  rate 

te(ie) 

Export  subsidy  rates 

tereal(ie) 

Real  export  subsidy  rate 

thsh(hh) 

Household  share  of  government  transfers 

wfdist(i,f) 

Factor  market  distortion  parameters 
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Table  2 — Price  equations 


(1) 

im 

PM(im) 

=  pwin(ini)*(l  +  tm(im)  )*EXR 

(2) 

ie 

PE(ie) 

=  PWE(ie)*(l  +  te(ie))*EXR 

(3) 

i 

P(i) 

=  (PD(i)*XXD(i)  +  PM(i)*M(i))/X(i) 

(4) 

i 

PX(i) 

=  (PD(i)*XXD(i)  +  PE(i)*E(i))/XD(i) 

(5) 

i 

PVA(i) 

=  PX(i)*(l  -  itax(i))  -  SUM(j,  io(j,i)*P(j)) 

(6) 

i 

PK(i) 

=  SUM(j,  P(j)*imat(j,i)) 

(7) 

1 

PINDEX 

=  GNPVA/RGNP 

Price  Equations 

Table  2  presents  the  model's  price  system.  On  the  import  side, 
the  model  incorporates  the  "small  country"  assumption:  world 
prices  (pwm)  are  exogenous.  The  domestic  price  of  imports  (PM) 
is  simply  the  tariff-ridden  world  price  times  the  exchange  rate 
(EXR) .  On  the  export  side,  for  some  agricultural  sectors,  there 
is  assumed  to  be  a  downward-sloping  world  demand  curve  for  U.S. 
exports.  For  these  sectors,  the  world  price  (PWE)  is  endogenous. 
The  domestic  price  of  exports,  PE,  includes  any  export  subsidies. 

Equations  3  and  4  describe  the  prices  for  the  composite 
commodities  X  and  XD.  These  equations  reflect  the  homogeneity  of 
the  import  aggregation  and  export  transformation  functions.  The 
value  of  the  composites  must  equal  the  value  of  their  component 
parts,  regardless  of  functional  form.  We  discuss  below  the 
properties  of  the  functions.’ 

Equation  5  defines  the  sectoral  value-added  or  "net"  price  (PVA) . 
It  equals  the  output  price  minus  indirect  taxes  and  the  cost  of 
intermediate  inputs  (given  fixed  input-output  coef f icients) . 

The  expression  PVA- XD  equals  sectoral  value  added  (at  factor 
cost) ,  which  is  paid  to  primary  factors. 

Equation  6  gives  the  price  (PK)  of  a  unit  of  capital  installed  in 
sector  i.  PK  differs  across  sectors,  reflecting  the  fact  that 
capital  used  in  different  sectors  is  heterogeneous.  The 
composition  of  capital  goods  used  by  a  sector  (by  sector  of 
origin)  is  given  by  the  columns  of  the  matrix  imat.  Because  each 
column  of  imat  sums  to  one,  PK(i)  is  simply  the  weighted  average 
of  the  costs  of  capital  goods  used  in  sector  i. 

Finally,  equation  7  defines  an  aggregate  price  index  (PINDEX) , 
which  is  the  GNP  deflator.  It  equals  nominal  GNP  (GNPVA)  divided 


’in  some  models,  it  is  convenient  to  use  the  dual  price 
equations  and  drop  the  CES  aggregation  and  GET  transformation 
functions.  For  these  functions,  the  two  treatments  are 
equivalent.  When  using  flexible  functional  forms  that  are  not 
self-dual,  alternative  treatments  can  matter. 

^°Note  that  indirect  tax  rates  are  computed  on  a  base  of  PX. 
In  other  models,  they  are  computed  on  a  base  of  PD.  See,  for 
example,  Devarajan,  Lewis,  and  Robinson  (1990) . 
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by  real  GNP  (RGNP) .  This  is  the  numeraire  price  index  that  will 
be  fixed,  defining  the  absolute  price  level  against  which  all 
relative  prices  will  be  measured.  The  GNP  deflator  is  a 
convenient  choice,  but  any  other  price  index  could  be  used. 

Other  common  choices  in  CGE  models  include  a  consumer  or  producer 
price  index,  the  exchange  rate,  or  the  wage. 

Quantity  Equations 

Table  3  gives  the  block  of  quantity  equations,  which  effectively 
determine  the  supply  side  of  the  model.  Equations  8  to  10  define 
the  production  technology  and  sectoral  demand  for  factors. 
Equations  11  to  13  give  the  export  transformation  functions  and 
the  corresponding  export  supply  functions,  which  depend  on 
relative  prices  (PE/PD) .  Equation  14  gives  the  world  demand 
functions  for  exports  in  sectors  in  which  the  United  States  is 
assumed  to  face  a  downward-sloping  world  demand  curve  (indexed  by 
ied) .  Equations  15  to  17  give  the  import  aggregation  functions 
and  the  corresponding  import  demand  functions,  which  depend  on 
relative  prices  (PD/PM) . 

Equation  8  defines  a  Cobb-Douglas  value-added  production  function 
with  primary  factors  FDSC  (including  labor,  capital,  and  land) . 
The  demand  for  intermediate  inputs  is  given  by  equation  10,  which 
assumes  fixed  input-output  coefficients.  The  demand  for  primary 
factors,  equation  9,  reflects  the  first-order  conditions  for 
profit  maximization  using  the  value-added  price,  PVA.  Given  that 
the  value-added  price  appears  in  equation  9,  there  is  no  need  to 
define  a  separate  variable  for  real  value  added.  Consequently, 

XD  appears  in  equations  8  and  9. 

The  model  will  solve  for  average  factor  prices,  WF(f),  that  clear 
the  factor  markets.  The  model  also  allows  for  factor-market 
distortions.  The  parameters  wfdist(i,f)  are  assumed  fixed  and 


Table  3- 

-Quantity 

equations 

(8) 

i 

XD(i) 

=  ad(i)*PR0D(f ,  FDSC( i , f )**alpha( i , f ) ) 

(V 

i.f 

WF(f)*wfdist(i,f)  =  PVA(i)*alpha(i,f)*XD(i)/FDSC(i,f) 

(10) 

i 

INT(i) 

=  SUM(j,  io(i,j)*XD(j)) 

(11) 

ie 

XD(ie) 

=  at  (  ie  )  ■*  (  gamma  (  ie  )  *E  (  ie  )  **rho  t  ( ie  ) 

+  ( 1-gamma (ie) )*XXD(ie)**rhot(ie) )**(l/rhot(ie) ) 

(12) 

ien 

XD(ien) 

=  XXD(ien) 

(13) 

ie 

E(ie) 

=  XXD(ie)*(PE(ie)/PD(ie)*(l  -  gamma(ie)) 

/gamma (ie)) **(!/( rho t ( ie ) - 1 ) ) 

(14) 

ied 

E(ied) 

=  econst(ied)'*’(  (PWE(ied) 

/pwse(ied) )**( -rhoe(ied) ) ) 

(15) 

im 

X(im) 

=  ac(im)*(delta(im)*M(im)**( -rhoc(im) ) 

+  (l-delta(im))*XXD(im)**(-rhoc(im)))**(-l/rhoc(im)) 

(16) 

imn 

X(imn) 

=  XXD(imn) 

(17) 

im 

M(  im) 

=  XXD(im)*((PD(im)/PM(im))*(delta(im) 

/(l-delta(im) ) ))**(!/ (l+rhoc(im) ) ) 
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measure  the  extent  to  which  the  marginal  revenue  product  of  a 
factor  in  a  particular  sector  deviates  from  the  average  return 
for  that  factor  across  the  economy.  If  there  are  no  distortions 
in  the  factor  markets,  all  the  wfdist(i,f)  parameters  will  egual 
one . 

Total  domestic  production  (XD)  is  supplied  to  domestic  (XXD)  or 
foreign  (E)  markets.  The  three  goods  are  distinct,  with  separate 
prices,  although  they  have  the  same  sectoral  classification.  In 
effect,  each  sector  is  a  two-product  firm,  producing  goods  for 
the  export  and  domestic  market.  Equation  11  describes  how 
sectoral  production  is  transformed  into  goods  for  domestic 
markets  and  export  markets. 

The  functional  form  of  equation  11  is  a  constant  elasticity  of 
transformation  (GET)  function.  Producers  maximize  revenue  from 
sales  subject  to  the  GET  transformation  function.  Export  supply, 
equation  13,  represents  the  first-order  conditions  and  is  a 
function  of  the  relative  export  price  to  domestic  price,  the 
elasticity  of  transformation  between  the  two  uses,  and  the  share 
parameters  in  the  GET  function. 

Imported  (M)  and  domestic  goods  (XXD)  are  also  distinct,  with 
separate  sectoral  prices.  Gonsumers  demand  a  composite  good, 
which  is  a  GES  aggregate  of  imported  and  domestic  goods  with  the 
same  sectoral  classification  (equation  15) .  Import  demand  is 
given  by  equation  17,  which  is  the  first  order  condition  for 
minimizing  the  cost  of  buying  a  given  amount  of  composite  good. 
The  model  thus  allows  cross-hauling  (that  is,  simultaneous 
exports  and  imports)  at  the  sectoral  level. 

This  treatment  of  exports  and  imports  partially  insulates  the 
domestic  price  system  from  changes  in  world  prices  of  sectoral 
substitutes.  The  specification  of  imperfect  substitution  and 
transformation  is  more  realistic  than  the  extreme  dichotomy 
between  perfect  substitutes  and  nontraded  goods  commonly 
specified  in  analytic  trade  models.  The  particular  functional 
forms  used  (GES  and  GET  functions)  embody  strong  assumptions 
about  separability  and  the  absence  of  income  effects.  The  ratio 
of  exports  and  imports  to  domestic  sales  at  the  sectoral  level 
depends  only  on  relative  prices,  with  no  income  effects.  These 
strong  assumptions  can  be  weakened  without  losing  the  fundamental 
assumption  that  domestic  and  foreign  goods  are  imperfect 
substitutes.  Hanson,  Robinson,  and  Tokarick  (1990) ,  for  example, 
specify  import  demand  according  to  a  flexible  functional  form, 
the  Almost  Ideal  Demand  System  (AIDS) .  The  AIDS  system  allows 
for  a  non-unitary  income  elasticity  of  demand  for  imports  at  the 
sectoral  level. 


^^The  model  also  allows  pure  nontraded  goods.  In  sectors 
with  no  exports  or  imports  (indices  ien  and  imn) ,  the  aggregation 
functions  are  not  needed  (equations  12  and  16) . 
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Table  4 — Income  equations 


(18) 

f 

YFCTR(f) 

=  SUM(i,  WF(f)*wfdist(i,f)*FDSC(i,f)) 

(19) 

1 

YINST ("labr" 

)  =  YFCTR(" labor")  -  SSTAX 

(20) 

1 

YINSTC'prop" 

)  =  YFCTRC'land") 

(21) 

1 

YINST ("ent") 

=  YFCTR ("capital")  +  GENT  -  ENTSAV 

-  ENTTAX  -  DEPRECIA 

(22) 

hh 

YH(hh) 

=  SUM(ins,  sintyh(hh, ins)*YINST(ins) ) 

+  rhsh(hh)*REMIT*EXR  +  thsh(hh)*HHT 

(23) 

1 

TARIFF 

=  SUM(im,  tm( im)*pwin( im)*M( im)  )*EXR 

(24) 

1 

INDTAX 

=  SUM(i,  itax(i)*PX(i)*XD(i)) 

(25) 

1 

NETSUB 

=  SUM(ie,  te(ie)*PWE(ie)*E(ie))*EXR 

(26) 

1 

SSTAX 

=  sstr*YFCTR( "labor") 

(27) 

1 

ENTTAX 

=  etr*(YFCTR( "capital")  -  DEPRECIA  +  GENT) 

(28) 

1 

TOTHHTAX 

=  SUM(hh,  htax(hh)*YH(hh)) 

(29) 

1 

DEPRECIA 

=  SUM(i,  depr(i)*PK(i)*FDSC(i, "capital")) 

(30) 

1 

ENTSAV 

=  esr*(YFCTR( "capital")  +  GENT 
-  ENTTAX  -  DEPRECIA) 

(31) 

1 

HHSAV 

=  SUM(hh,  mps(hh)*YH(hh)'*(l  -  htax(hh))) 

(32) 

1 

GR 

=  TARIFF  -  NETSUB  +  INDTAX  +  TOTHHTAX 

+  SSTAX  +  ENTTAX  +  FB0R*EXR 

(33) 

1 

SAVINGS 

=  HHSAV  +  GOVSAV  +  DEPRECIA 

+  FSAV*EXR  +  ENTSAV 

Income  Equations 

Table  4  presents  the  equations  that  map  the  flow  of  income  from 
value  added  to  institutions  and  ultimately  to  households.  Factor 
incomes  (YFCTR)  are  defined  in  equation  18.  They  are  mapped  into 
institutional  incomes  (YINST)  in  equations  19  to  21,  net  of 
institutional  taxes,  savinqs,  and  qovernment  transfers.  Using 
fixed  allocation  shares  (sintyh) ,  institutional  income  is 
distributed  to  households  in  equation  22.  Households  also 
receive  income  as  remittances  from  abroad  (generally  negative  for 
the  United  States)  and  transfers  from  the  government.  Taxes  are 
determined  in  equations  23  to  28,  and  total  government  revenue  is 
giver>  in  equation  32.  Savings,  including  depreciation  charges, 
are  given  in  equations  29  to  31  and  are  summed  in  equation  33. 

These  income  equations  serve  to  fill  out  all  the  inter- 
institutional  entries  in  the  SAM.  Many  of  these  entries  will  be 
specific  to  the  institutional  structure  of  a  particular  country. 
For  example,  government  revenue  includes  a  term  FBOR-EXR.  In  the 
U.S.  accounts,  this  variable  is  net  foreign  transfers  received  by 
the  U.S.  Government  (generally  negative  for  the  United  States), 
minus  net  interest  paid  by  the  Government  to  foreigners  on 
outstanding  official  debt.  While  they  are  listed  as  variables, 
many  of  these  items  will  be  set  exogenously  in  the  model  or 
determined  by  simple  share  or  multiplier  parameters. 
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Table  5 — Expenditure  and  equilibrium  equations 


Expenditure  equations: 


(34)  i 

(35)  i 

(36)  i 

(37)  1 

(38)  i 

(39)  i 

(40)  1 

(41)  1 


P(i)*CD(i) 

GD(i) 

DST(i) 

FXDINV 

PK(i)*DK(i) 

ID(i) 

GNPVA 

RGNP 


=  SUM(hh,  cles  ( i  , hh)'*(l  -  mps (hh)  )*YH(hh) 

*(1  -  htax(hh))) 
gles(i)*GDTOT 
dstr(i)*XD(i) 

INVEST  -  SUM(i,  DST(i)*P(i)) 

=  kish(i)*FXDINV 
SUM(j,  iinat(iJ)*DK(j)) 

SUM(i,  PVA(i)*XD(i))  +  INDTAX  +  TARIFF  -  NETSUB 
SUM(i,  CD(i)  +  DST(i)  +  ID(i)  +  GD(i)) 

+  SUM(ie,  (1  -  tereal(ie) )*E(ie) ) 

-  SUM(ini,  (1  -  tmreal(im)  )'*’M(im) ) 


Equilibrium  equations: 


(42) 

i 

X(i) 

=  INT(i)  +  CD(i)  +  GD(i)  +  ID(i)  +  DST(i) 

(43) 

f 

SUM(i, 

FDSC(i,f))=  fs(f) 

(44) 

1 

GR 

=  SUM(i,  P(i)*GD(i))  +  GOVSAV  +  GENT ’ +  HHT 

(45) 

1 

SUM(im, 

pwni(lm)*M(im))=  SUM(ie,  PWE(ie)*E(ie) )  +  FSAV 

+  REMIT  +  FBOR 

(46) 

1 

SAVINGS 

=  INVEST 

Expenditure  and  Equilibrium  Equations 

Table  5  gives  equations  that  complete  the  circular  flow  of  income 
and  expenditure,  determining  the  demands  for  goods  by  the  various 
actors.  Consumer  expenditures,  equation  34,  are  a  function  of 
prices  and  income  according  to  a  simplified  version  of  the  Linear 
Expenditure  System  (LES).^^  Government  demand  for  final  goods, 
equation  35,  is  defined  in  terms  of  fixed  shares  (gles  parameter) 
of  aggregate  real  government  spending  on  goods  and  services 
(GDTOT) .  Equation  44  is  the  government  balance  equation, 
equating  revenue  and  expenditure  (including  the  deficit). 

I 

Equations  36  to  39  determine  the  demand  for  capital  goods.  The 
demands  for  new  inventories  (DST)  are  given  by  fixed  coefficients 
times  production  (equation  36) .  Aggregate  nominal  fixed 
investment  (FXDINV)  equals  total  nominal  investment  (INVEST) 
minus  the  value  of  inventory  accumulation  (equation  37) . 

Equation  38  determines  fixed  real  investment  by  sector  of 
destination  (DK) .  The  allocation  of  nominal  fixed  investment  to 
sectors  is  given  by  fixed  shares  (kish) ,  which  sum  to  one  over 
all  sectors.  Equation  39  translates  investment  by  sector  of 
destination  into  demand  for  capital  goods  by  sector  of  origin, 
using  the  capital  composition  matrix  (imat).  Given  the 


^^In  this  case,  all  subsistence  minima  are  set  to  zero.  The 
LES  reduces  to  fixed  expenditure  shares  and  a  Cobb-Douglas 
utility  function. 
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definition  of  PK(i),  that  SUM(i,  kish(i))  =  1,  and  that 
SUM(i,  iinat(i,j))  =  1  for  all  j,  then  it  will  be  true  that: 

FXDINV  =  SUM(i,  PK(i)-DK(i))  =  SUM(i,  P(i)-ID(i)). 

The  basic  CGE  model  is  static,  with  the  economywide  capital  stock 
specified  as  an  exogenous  variable.  The  model  does  generate 
savings,  investment,  and  demands  for  capital  goods.  The  capital 
goods,  however,  are  assumed  not  to  be  installed  during  the 
period,  and  so  simply  represent  a  separate  demand  category.  In  a 
dynamic  model,  the  assumption  of  heterogeneity  of  capital  goods 
by  sector  of  destination  is  very  important,  affecting  the  dynamic 
properties  of  different  growth  paths.  In  a  static  model,  the 
assumption  is  less  important,  but  does  have  some  impact  because 
different  assumptions  about  the  composition  of  investment  by 
sector  of  destination  will  change  the  structure  of  demand.  The 
specification  of  PK  as  sectorally  differentiated  reflects  this 
assumption. 

Equations  40  and  41  define  real  and  nominal  GNP,  which  are  used 
to  define  the  GNP  deflator  in  the  price  equation  block.  Defining 
GNP  from  the  expenditure  side,  imports  are  valued  at  world  prices 
times  the  exchange  rate,  net  of  tariffs.  In  defining  value 
added,  imports  are  purchased  by  producers  at  domestic  market 
prices,  which  include  tariffs.  To  make  GNP  calculated  as  the  sum 
of  value  added  (at  market  prices)  consistent  with  GNP  calculated 
from  the  expenditure  side,  tariffs  must  be  added  to  total  value 
added,  which  is  done  in  equation  40.^^  In  the  definition  of 
real  GNP,  real  imports  are  defined  net  of  "real"  tariffs,  given 
the  real  tariff  rates  tmreal(i).^^ 

In  principle,  exports  should  be  treated  symmetrically  with 
imports.  In  the  national  accounts,  exports  are  valued  at  world 
prices  times  the  exchange  rate,  so  that  export  subsidies  need  to 
be  netted  out  from  the  value  added  side,  which  is  done  in 
equation  40.  Note  that,  unlike  tariffs,  export  subsidies  are 
distributed  to  producing  sectors.  In  defining  sectoral  value 
added  at  market  prices,  they  can  be  treated  symmetrically  with 
indirect  taxes.  Note  also  that  PVA,  defined  in  equation  5, 
includes  export  subsidies  but  excludes  indirect  taxes. 


^^Other  U.S.  models  that  have  focused  on  tax  analysis  have 
all  assumed  that  capital  is  not  heterogeneous.  See,  for  example, 
Ballard,  Fullerton,  Shoven,  and  Whalley  (1985).  In  such  a  model, 
PK  is  a  scalar  and  imat  is  a  vector. 

^^In  the  U.S.  National  Income  and  Product  Accounts  (NIPA) , 
tariffs  are  added  to  value  added  in  the  wholesale  trade  sector. 
The  United  Nations  system  of  national  accounts  (SNA)  keeps 
tariffs  as  a  separate  entry  in  the  value  added  accounts. 

^^This  treatment  is  standard  in  national  accounting,  with 
tmreal(i)  defined  as  the  tariff  rates  in  the  base  year.  Not  all 
countries  define  "real"  tariffs  this  way.  Some  deflate  nominal 
tariffs  by  some  deflator,  say  that  for  imports. 

^^The  tereal(i)  parameters  are  needed  on  the  export  side 
because  it  is  customary  to  define  real  magnitudes  in  the  base 
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Equations  42  to  46  define  the  system  constraints  that  the  model 
economy  must  satisfy.  The  model  is  a  general  equilibrium  system, 
with  all  endogenous  variables  being  jointly  determined.  In 
discussing  how  the  economy  satisfies  these  system  constraints, 
however,  it  is  useful  to  think  in  terms  of  equilibrium  conditions 
and  equilibrating  variables.  In  a  competitive  market  economy, 
market  clearing  is  achieved  by  varying  prices,  and  it  is  helpful 
to  identify  the  price  associated  with  each  market. 

Equation  42  states  that  the  sectoral  supply  of  composite 
commodities  must  equal  demand  and  defines  market-clearing 
equilibrium  in  the  product  markets.  There  is  also  an  analogous 
sectoral  market-clearing  condition  for  domestically  produced  ; 
goods  sold  on  the  domestic  market  (XXD) .  However,  from  equation 
17 ,  the  ratio  of  imports  to  domestic  sales  is  assumed  to  be  the 
same  for  all  categories  of  demand.  Thus,  at  the  sectoral  level, 
specifying  a  separate  market-clearing  condition  for  domestically 
produced  goods  sold  on  the  domestic  market  amounts  to  multiplying 
through  both  sides  of  equation  42  by  the  ratio  XXD(i)/X(i).  A 
separate  equation  for  domestically  produced  goods  sold  on  the 
domestic  market  is  not  needed.  When  the  market  for  composite 
goods  clears,  then  so  will  the  market  for  domestic  goods. 

Equation  43  defines  equilibrium  in  the  factor  markets.  The  ' 
supplies  of  primary  factors  (fs)  are  assumed  fixed  exogenously 
and  are  given  as  parameters.  Market  clearing  requires  that  total 
factor  demand  equal  supply.  The  equilibrating  variables  are  the 
average  factor  prices,  WF(f) .  In  the  model  as  specified,  all 
factors  are  freely  mobile,  including  capital.  The  model  must  be 
seen  as  defining  a  longrun  equilibrium  in  which  sectoral  capital 
stocks  have  time  to  adjust,  equating  rental  rates  across 
sectors. 

An  alternative  approach  is  to  specify  a  shortrun  model,  with 
sectoral  capital  stocks  fixed  exogenously.  Such  a  specification 
is  easy  to  implement  in  the  existing  model  structure.  Fixing 
sectoral  capital  stocks  amounts  to  making  the  FDSC(i,f)  variables 
exogenous  for  the  factor  "capital."  The  corresponding  factor 
market-clearing  equation  is  redundant  and  can  be  dropped.  With 
sectorally  fixed  capital  stocks,  however,  it  is  not  possible  to 
assume  that  the  rental  rate  will  be  the  same  across  sectors. 

This  condition  can  be  relaxed  in  the  model  by  simply  specifying 
the  wfdist(i, "capital")  parameters  as  endogenous  variables 


year  such  that  PE(i)  =  1,  and  we  assume  that  PE  is  a  subsidy- 
ridden  price  (see  equation  2  in  table  3) .  There  is  less 
consistency  across  countries  in  the  treatment  of  export  subsidies 
than  in  the  treatment  of  tariffs.  Many  countries  appear  to  value 
exports  in  their  accounts  at  subsidy-ridden  prices.  Since  export 
subsidies  are  forbidden  under  the  GATT,  national  statistical 
agencies  tend  to  assume  they  do  not  exist.  In  the  United  States, 
there  were  no  export  subsidies  in  1982,  the  base  year  for  the 
model . 

^^With  the  wfdist  parameters,  sectoral  rental  rates  are  not 
equated,  but  may  differ  from  the  average  by  the  fixed  ratios. 
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instead  of  parameters,  adding  n  new  equilibrating  variables,  and 
dropping  the  average  factor  return  variable.^®  This  treatment 
allows  all  sectoral  rental  rates  to  be  determined  endogenously, 
given  the  fixed  sectoral  capital  stocks. 

Macroeconomic  Closure 

The  income  and  expenditure  equations  capture  the  three  major 
macro  balances:  savings-investment ,  government  deficit,  and  the 
balance  of  trade.  Because  the  model  is  closed  in  that  it 
satisfies  Walras'  Law,  the  three  macro  balances  will  satisfy  the 
identity:  private  savings  +  government  savings  +  foreign  savings 
=  aggregate  investment.  The  modeler  must  take  care  not  to 
specify  independent  equations  determining  all  of  these  components 
endogenously,  because  the  resulting  model  will  either  not  satisfy 
Walras'  Law  or  be  infeasible. 

Equations  44  through  46  describe  equilibrium  conditions  for  the 
government  deficit,  balance  of  trade,  and  savings-investment 
balance.  These  can  be  seen  as  defining  notions  of  macroeconomic 
equilibrium.  Additional  equations  are  required  to  define  the 
equilibrating  variables.  Table  6  lists  the  conditions  required, 
plus  a  few  additional  restrictions  arising  from  the  definition  of 
traded  sectors. 

In  this  model,  the  government  deficit  is  determined  residually  in 
equation  44.  Equations  50  to  52  in  table  6  fix  government 
expenditure  items,  and  GOVSAV  is  the  equilibrating  variable.  The 
second  macro  equilibrium  condition,  equation  45,  concerns  the 
balance  of  trade  equation.  In  the  model  as  presented,  equations 
47  to  49  fix  all  the  financing  items  in  the  trade  balance 
equation:  net  foreign  savings,  remittances,  and  net  official 
borrowing  (FSAV,  REMIT,  and  FBOR) .  The  result  is  that  the 
balance  of  trade  in  goods  and  services  is  set  exogenously  in  the 
model.  The  equilibrating  variable  is  the  nominal  exchange 
rate,  EXR.  The  equilibrating  mechanism  at  work  is  that,  given 
the  numeraire  in  equation  53,  changes  in  EXR  change  the  relative 
prices  of  nontradables  (PD)  and  tradables  (PE  and  PM) — the  real 
exchange  rate. 

The  CGE  model  determines  an  equilibrium  relationship  between  the 
exchange  rate  and  the  balance  of  trade.  For  example,  an  increase 
in  EXR  implies  a  real  depreciation,  with  the  sectoral  prices  of 
tradables  (PE  and  PM)  rising  relative  to  PD.  Given  the  export 
supply  and  import  demand  equations,  a  real  depreciation  should 
lead  to  higher  exports  and  lower  imports.  An  alternative  closure 


^®In  the  GAMS  program,  a  variable  can  be  effectively  dropped 
by  fixing  its  value  to  one. 

^^Note  that  since  the  model  is  based  on  the  GNP  accounts, 
trade  in  services  includes  factor  services.  Thus,  the  trade 
balance  in  this  model  is  the  current  account  balance.  Many  CGE 
models  are  based  on  the  gross  domestic  product  (GDP)  accounts, 
with  the  balance  of  trade  referring  to  goods  and  nonfactor 
services. 
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Table  6 — Macro  closure  equations 


Balance  of 

trade : 

(47)  1 

FSAV 

=  fsav 

(48)  1 

REMIT 

=  remit 

(49)  1 

FBOR 

=  fbor 

Government 

balance : 

(50)  1 

GDTOT 

=  gdtot 

(51)  1 

GENT 

=  gent 

(52)  1 

HHT 

=  hht 

Numeraire  price  index; 

(53)  1  PINDEX  =  pindex 

Nontraded  sectors  and  sectors  with  fixed  export  prices:  . 


(54)  imn  PM(imn)  =  0 

(55)  imn  M(imn)  =  0 

(56)  ien  PE(ien)  =  0 

(57)  ien  E(ien)  =  0 


(58)  iedn  PWE(iedn)  =  pwe(iedn) 


would  be  to  fix  the  value  of  EXR  (relative  to  the  numeraire  price 
index) .  The  balance  of  trade  would  then  be  determined 
endogenously  and  one  of  the  financing  items  (FSAV,  REMIT,  or 
FBOR)  would  have  to  be  made  into  an  endogenous  variable. 

The  final  macro  closure  condition  (equation  46)  requires  that 
aggregate  savings  equals  aggregate  investment.  Government 
revenue  is  determined  by  the  various  fixed  tax  parameters,  and 
government  saving  (GOVSAV) ,  as  mentioned  earlier,  is  determined 
residually  in  equation  44.  Private  savings  are  determined  by 
various  fixed  institutional  and  household  savings  rates.  Foreign 
saving  is  also  fixed  exogenously.  The  net  effect  is  to  specify  a 
savings-driven  model  in  which  aggregate  investment  is  determined 
by  aggregate  savings.  This  specification  is  called  "neoclassical 
closure"  in  the  CGE  literature.  Most  of  the  U.S.  applications  of 
CGE  models  use  some  form  of  neoclassical  closure.  There  are  many 
alternative  ways  to  achieve  savings-investment  equilibrium  in  the 
model,  reflecting  different  theoretical  perspectives  on  how  the 
macro  economy  operates. 


2°There  is  extensive  literature  on  alternative  macro 
closures  of  CGE  models.  See  Robinson  ( 1989a, b) ,  Rattso  (1982) , 
and  Dewatripont  and  Michel  (1987) .  The  seminal  article  is  Sen 
(1963)  . 
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In  a  standard  general  equilibrium  model,  the  system  can  only 
determine  relative  prices.  The  choice  of  numeraire  (equation  53) 
should  thus  have  no  effect  on  the  solution  value  of  any  real 
variables.  As  written,  however,  the  real  side  of  the  CGE  model 
is  not  homogeneous  of  degree  zero  in  prices.  That  is,  for 
example,  doubling  the  numeraire  price  index  (PINDEX)  would  not 
lead  to  a  new  solution  with  all  real  variables  unchanged  and  all 
prices  (including  the  exchange  rate)  doubled.  The  problem  is 
that  certain  variables  have  been  fixed  exogenously  in  nominal 
terms:  government  transfers  to  enterprises  and  households,  GENT 
and  HHT.  Unless  these  items  are  changed  proportionately  with  any 
change  in  the  numeraire  price  index,  the  real  value  of  the 
transfers  will  change.  Note  that  the  foreign  saving  items  (FSAV, 
REMIT,  and  FBOR)  are  not  a  problem,  since  they  are  fixed  in 
foreign  currency.  Their  value  in  domestic  currency  will  change 
with  the  exchange  rate,  which  will  vary  with  the  numeraire  price 
index. 

Counting  Equations  and  Variables 

The  CGE  model  can  be  seen  as  a  set  of  simultaneous  nonlinear 
equations.  Most  such  models  are  well-behaved  neoclassical 
general  equilibrium  models  that  satisfy  the  conditions  for 
existence  proofs  and  will  thus  have  at  least  one  solution.  In 
theory,  models  with  many  consumers  (a  typical  formulation  in 
applied  CGE  models)  may  have  multiple  equilibrium  solutions.  In 
practice,  modelers  have  not  found  multiple  equilibria,  so  the 
possibility  is  evidently  more  a  problem  for  theorists  than 
practitioners.  See  Kehoe  (1985)  and  Mas  Colell  (1985)  for 
discussions  of  the  theoretical  issues. 

While  generally  neither  necessary  nor  sufficient  to  ensure  the 
existence  of  a  solution,  it  is  nonetheless  reassuring  to  check 
that  the  number  of  endogenous  variables  equals  the  number  of 
independent  equations.  Careful  counting,  set  out  below, 
indicates  that  the  number  of  equations,  including  those  that  fix 
some  variables  exogenously,  is  one  more  than  the  number  of 
endogenous  variables. The  CGE  model,  however,  satisfies 
Walras'  Law  and  the  equations  defining  the  equilibrium  conditions 
are  not  all  independent.  Any  one  of  them  can  be  dropped,  thus 
equating  the  number  of  variables  and  equations.  In  the  GAMS 
model,  we  drop  equation  46,  the  savings-investment  equilibrium 
condition.  A  test  of  the  model  solution  is  to  compute  aggregate 
savings  and  investment  and  check  to  see  that  they  are  equal,  even 
though  the  equation  is  not  explicitly  included  in  the  system  that 
is  solved. 

Table  7  provides  a  count  of  equations  and  variables  for  the  10- 
sector  U.S.  model  listed  in  Appendix  2.  The  number  of  variables 
and  equations  for  each  block  is  counted  using  the  set  indexes;  i, 
f,  ins,  hh.  For  this  model,  the  index  values  are:  i  =  10,  f  =  3, 


^^Equations  54  to  58  are  included  to  account  for  sectors  in 
which  there  are  no  exports  or  imports,  or  for  which  there  are  no 
export  demand  functions. 
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Table  7 — Count  of  equations  and  variables 


Variables : 


Price  block:  (8»i)  +2  =82 
Quantity  block;  (6»i)  +  (f*i)  +3  =93 
Income  block:  (5»i)  +  f  +  ins  +  hh  +  22  =81 

Total:  (19. i)  +  (f.i)  +  f  +  ins  +  hh  +  27  =  256 


Equations : 


Price  block:  im  +  ie  +  (4»i)  +1  =60 

Quantity  block;  (2.i)  +  (f’i)  +  (2»ie)  +  ien 

+  ied  +  (2.im)  +  imn  =  92 

Income  block;  f  +  hh  +14  =20 

Expenditure  block:  (5*1)  +3  =53 

Market  clearing  block:  i  +  f  +  3  =16 

Macro  closure:  7  =7 

Nontraded  sectors;  (2* imn)  +  (2* ien)  +  iedn  =  9 

Total:  (12.i)  +  (f'i)  +  (3.im)  +  (3.ie)  +  ied  + 

(3*imn)  +  (3.ien)  +  iedn  +  (2*1)  +  hh  +  28  =  257 


ins  =  3,  and  hh  =  3 .  The  subsets  of  "i"  for  the  model  are:  im  = 
9,  ie  =  10,  ied  =  3,  imn  =  1,  ien  =  0,  and  iedn  =  7.  There  are 
256  variables  and  257  equations,  one  more  equation  than 
endogenous  variables.  However,  as  discussed  above,  the  equations 
are  not  all  independent  and  one  of  the  equilibrium  conditions  can 
be  dropped.  Typically,  the  savings- investment  or  balance-of- 
trade  equilibrium  condition,  equation  46  or  45,  is  dropped.  In 
our  model,  we  drop  the  savings-investment  equation. 


Calibration  of  Model  Pareuneters 

In  this  section,  we  describe  how  base  year  data  are  used  to 
calibrate  model  parameters.  We  calibrate  parameters  from  a  1982 
Social  Accounting  Matrix  (SAM)  data  base  plus  additional 
estimated  parameters  such  as  values  of  various  elasticities.  The 


^^Adelman  and  Robinson' (1978)  and  Dervis,  de  Melo,  and 
Robinson  (1982)  typically  dropped  the  excess-demand  equation  for 
the  largest  sector.  Condon,  Dahl,  and  Devarajan  (1987)  dropped 
the  balance-of-trade  equation.  A  symmetric  approach  is  to  define 
an  additional  endogenous  variable  equal  to  the  difference  between 
aggregate  savings  and  investment  and  leave  in  the  redundant 
equation.  The  additional  variable  must  equal  zero  at  the 
equilibrium  solution. 
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base  year  model  solution,  given  the  calibrated  parameters,  should 
reproduce  the  base  year  SAM.  Making  sure  the  solution  SAM  is 
consistent  with  the  input  data  SAM  is  a  useful  consistency  check 
of  the  model  eguations,  SAM  data  base,  and  calibrated  parameters. 

The  data  on  the  U.S.  economy  are  organized  into  a  SAM. 
Construction  of  the  SAM  is  a  major  task  in  itself. The 
development  of  the  1982  SAM  for  the  United  States  is  discussed  in 
Hanson  and  Robinson  (1989).  In  figure  2,  we  present  an 
aggregated  1982  SAM  which  is  consistent  with  the  U.S.  National 
Income  and  Product  Accounts  (NIPA) . 

The  disaggregated  SAM  combines  the  input-output  tables  with  the 
NIPA.  The  U.S.  input-output  tables  are  produced  every  5  years. 
The  last  published  table  is  for  1977.  See  U.S.  Department  of 
Commerce,  Bureau  of  Economic  Analysis  (1984) .  The  input-output 
table  was  updated  to  1982  under  a  contract  with  the  U.S.  Forest 
Service. With  some  further  adjustments,  this  updated  table 
provides  the  core  data  set  for  our  model.  In  addition  to  the 
data  in  the  NIPA  and  input-output  tables,  the  data  base  for  a  CGE 
model  includes  quantity  measures  for  factors  of  production,  a 
capital  composition  matrix,  and  various  elasticities. 

Common  practice  in  calibrating  CGE  models  is  to  assume  that  the 
base  year  of  the  model  is  also  the  base  year  for  price  indices. 
Units  are  defined  so  that  all  prices  equal  one,  and  the  sectoral 
flows  in  the  SAM  measure  both  real  and  nominal  magnitudes.  The 
initial  goods  market  equilibrium  between  supply  and  demand  is 
thus  obtained  at  prices  equal  to  one.  Such  choice  of  units 
simplifies  the  calibration  procedure,  although  it  is  not 
required. 

In  calibration,  the  model  equations  are  solved  in  reverse.  Given 
base-year  values  for  the  variables,  the  parameters  are  derived 
from  the  equations.  Calibration  is  a  mathematical,  not  a 
statistical,  procedure.  We  describe  the  calibration  procedure 
for  some  of  the  parameters,  following  the  equation  blocks  above. 

Production  and  Trade  Aggregation  Functions 

For  the  quantity  equation  block,  equations  8-17,  we  need  to 
calibrate  the  parameters  of  the  Cobb-Douglas  production  function, 
the  CES  aggregation  function  for  imports  and  domestic  goods,  and 


^^The  data  organization  and  reconciliation  were  facilitated 
by  using  a  Fortran  program  call  the  "SAM  Generator."  The 
structure  of  the  program  is  described  in  an  appendix  to  Dervis, 
de  Melo,  and  Robinson  (1982). 

^^The  work  was  done  by  a  consulting  firm  called  Engineering 
Economics  Associates  of  Berkeley,  California.  When  the  official 
U.S.  input-output  tables  for  1982  become  available,  we  will 
update  the  1982  SAM  data  base. 

^^In  recent  work  with  the  USDA/ERS  CGE  model,  we  have 
rebased  the  model  on  a  1986  SAM  with  real  magnitudes  defined  in 
terms  of  1982  prices. 
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Figure  2--A  SAM  for  the  United  States  in  1982 
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the  GET  transformation  function  for  exports  and  domestic  sales. 

In  each,  we  choose  elasticity  values  from  econometric  estimates 
available  in  the  literature.  Given  these  elasticities,  the  shift 
and  share  parameters  can  be  calibrated  from  the  base  year  data. 

The  Cobb-Douglas  production  function,  equation  8,  has  four 
parameters:  the  three  factor-share  parameters  and  the  shift 
parameter.  The  SAM  data  include  production,  XD(i) ,  factor 
demand,  FDSC(i,f),  and  factor  income,  FCTRY(i,f),  all  by  sector. 
From  factor  demand  by  sector  and  factor  income  by  sector  the 
average  factor  price  WF(f)  and  the  factor  price  sectoral 
proportionality  constants,  wfdist(i,f),  are  calculated.  In  the 
next  part  of  this  section,  we  go  into  more  detail  on  the  factor 
price  calculations. 

The  value-added  price,  PVA(i),  also  goes  into  the  calculation  of 
the  production  function  parameters.  This  price  depends  on  the 
producer  price,  the  cost  of  intermediate  goods,  and  the  indirect 
business  tax.  Note  that  production  and  factor  demand  account  for 
market  distortions,  because  the  distortions  are  captured  in  the 
wfdist  parameters  and  in  the  value-added  prices: 

PVA(i)  =  PX(i)*(l  -  itax(i))  -  SUM(j,  io ( j , i) *P ( j ) ) 

which  include  ad  valorem  distorting  taxes,  itax(i).  Any  other  ad 
valorem  tax  or  subsidy  instruments  can  either  be  added  to  the 
model  in  the  value-added  price  equation  or  included  in  the  itax 
parameters . 

The  first  order  conditions  for  profit  maximization,  equation  9, 
define  the  factor  demand  equations.  From  equation  9,  solve  for 
the  share  parameters,  alpha(i,f): 

alpha(i,f)  =  wfdist (i, f) *WF(f) *FDSC(i, f)/ (PVA(i) *XD(i) ) 

Given  that  the  data  from  the  SAM  add  up,  total  factor  payments 
must  equal  total  value  added  in  each  sector.  The  effect  is  to 
assume  constant  returns  to  scale  in  production,  so  that  the 
SUM(f,  alpha(i,f))  will  equal  one  in  all  sectors. 

Once  the  factor  shares  are  determined,  the  shift  parameter  of  the 
Cobb-Douglas  production  function  remains  to  be  calibrated.  Given 
the  data  on  total  output  XD(i) ,  factor  employment  FDSC(i,if),  and 
the  calibrated  alpha (i, if),  the  ad(i)  parameters  are  given  by 
(from  equation  8): 

ad(i)  =  XD(i)/PROD(f,  FDSC ( i , f ) **alpha ( i , f ) ) 

Calibration  of  the  CES  and  GET  trade  aggregation  functions  is 
very  similar  to  the  treatment  of  the  production  functions.  The 
CES  and  GET  functions  are  characterized  by  a  non-unitary 
elasticity  of  substitution  or  transformation,  share  parameters 
(which  sum  to  one) ,  and  a  shift  term.  The  various  model 
equations  do  not  suffice  to  identify  all  these:  one  parameter 
must  be  determined  outside  the  model.  Standard  practice  is  to 
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use  outside  econometric  estimates  of  the  elasticity  of 
substitution  or  transformation.^*^ 

For  the  CES  function,  the  elasticity  of  substitution  measures  the 
degree  to  which  imported  and  domestic  versions  of  the  "same"  good 
can  be  substituted  for  each  other.  In  the  model,  the  rhoc(i) 
parameter  equals  (1/elasticity  -  1) .  An  analogous  relationship 
holds  for  the  rhot(i)  parameter  in  the  GET  function. 

Given  these  elasticities,  the  import  demand  and  export  supply 
equations  can  be  used  to  solve  for  the  share  parameters  in  the 
CES  and  GET  function.  From  equation  17,  the  import  demand 
equation,  the  delta  parameters  can  be  computed  in  two  steps  (with 
deltal  as  an  intermediate  calculation) : 

deltal(im)  =  (PM(im)/PD(im) ) * (M(im)/XXD(im) ) ** (1  +  rhoc(im)) 
delta (im)  =  deltal ( im)/ (1  +  deltal (im)) 

Finally,  the  shift  parameters  are  calculated  from  equation  15; 

ac(im)  =  X(im)/[delta(im) *M(im) ** (-rhoc(im) ) 

+  (1  -  delta (im) ) *XXD(im) ** (-rhoc (im) )]** (-1/rhoc ( im) ) 

The  computation  for  the  export  supply  function  is  similar. 

Factor  Price  Sectoral  Proportionality  Constants 

The  parameters  wfdist(i,f)  relate  sector-specific  factor  returns 
to  the  economywide  average  factor  return,  WF(f) .  The  SAM 
includes  data  on  factor  payments  by  factor  and  sector.  Coupled 
with  data  on  the  number  of  units  of  factors  (workers,  capital 
stock,  and  acres  of  land) ,  both  the  sector-specific  and 
economywide  average  factor  returns  can  be  calculated.  For 
example,  the  sector-specific  wage  equals  a  sector's  "wage  bill" 
divided  by  the  number  of  workers  in  the  sector.  The  average  wage 
is  the  economywide  wage  bill  divided  by  the  total  number 
employed.  Wfdist ( i , "labor" )  for  a  sector  is  the  ratio  of  the 
sector-specific  to  the  average  wage. 

Gross  capital  returns  by  sector  can  be  determined  residually 
given  data  on  value  added,  wages,  and  land  rental.  Given 
estimates  of  sectoral  capital  stocks,  sectoral  capital  rental 
rates  and  the  wfdist (i, "capital")  parameters  can  be  computed  in 
the  same  manner  as  the  parameters  for  labor. An  alternative 
approach  used  by  Ballard,  Fullerton,  Shoven,  and  Whalley  (1985) 
is  to  start  with  calculated  wfdist  parameters.  They  assume  that 
the  only  reason  capital  rentals  differ  across  sectors  is 


^^For  the  United  States,  substitution  elasticities  for 
imports  have  been  estimated  by  Shiells,  Stern,  and  Deardorff 
(1986J,  and  more  recently,  by  Reinert  and  Roland-Holst  (1990). 

^^In  the  GAMS  program,  the  parameters  are  read  in  as 
elasticities  and  the  rhoc  and  rhot  parameters  are  computed. 

^®We  use  capital-stock  data  from  the  U.S.  Department  of 
Gommerce,  Bureau  of  Economic  Analysis  (1987) . 
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variation  in  tax  rates.  Given  data  on  sectoral  taxes,  they 
estimate  the  wfdist  parameter  for  capital  in  each  sector. 

Assuming  that  after-tax  rental  rates  must  be  equal  across 
sectors,  they  then  use  an  estimate  of  the  economywide  rental  rate 
to  compute  sectoral  capital  stocks. 

The  wfdist(i,f)  parameters  reflect:  (1)  distortions  in  the  factor 
markets  such  as  impediments  to  factor  mobility  among  sectors  or 
differential  tax  rates,  and/or  (2)  aggregation  errors  in  the 
definition  of  factors.  Examples  of  the  second  effect  might  be 
variations  in  capital  vintages  across  sectors  that  are  not 
captured  in  capital  stock  data  or  variations  in  the  occupation, 
skill,  or  education  composition  of  the  labor  force  across 
sectors.  The  general  equilibrium  model  assumes  that  the  return 
to  a  given  factor  would  be  equal  across  sectors  if  the  factors 
were  indeed  homogeneous  and  there  were  no  rigidities  or 
distortions . 

The  fact  that  there  are  rigidities  and  distortions  is  reflected 
in  that  the  measured  wfdist (i,f)  parameters  differ  from  one.  By 
assuming  these  parameters  to  be  constant  across  experiments,  the 
modeler  assumes  that  the  structural  characteristics  responsible 
for  the  differentials  are  invariant  to  the  question  at  hand. 

That  is,  all  policy  experiments  must  be  seen  as  comparing  second- 
best  situations,  given  existing  factor-market  distortions. 

Indeed,  the  existence  of  such  distortions  is  a  strong  argument 
for  using  CGE  models,  since  welfare  comparisons  in  second-best 
situations  are  usually  theoretically  ambiguous,  with  results 
depending  on  parameter  values.  Of  course,  it  is  possible  to  do 
experiments  in  which  the  wfdist  parameters  are  changed,  which  is 
the  approach  taken  in  much  of  the  public  finance  literature  using 
CGE  models.^’ 

Tax  and  Saving  Rates  in  the  Income  Equations 

The  parameters  in  the  income  equations  include  the  institutional 
tax  and  saving  rates  as  well  as  household  tax  and  saving  rates. 
The  SAM  data  provide  the  values  of  total  institutional  and 
household  income  and  the  amounts  saved  and  paid  in  taxes.  The 
average  tax  and  saving  rates  are  simply  calculated  as  the  ratios 
of  taxes  or  savings  to  the  income  base. 

The  institutional  structure  of  the  model  depends  on  the  household 
aggregation.  For  the  types  of  households  in  the  basic  model,  we 
distinguish  institutions  by  their  functional  source  of  income. 
Institutional  income  is  factor  income  net  of  institutional  taxes 
and  savings,  and  includes  government  transfers.  The  net  income 
of  the  labor  institution  is  labor  income  net  of  social  security 
taxes . 

The  net  income  of  the  enterprise  institution  is  the  capital 
income  of  producers,  net  of  the  profit  tax  on  enterprise  income, 
retained  earnings  which  goes  to  the  capital  account,  and 


^^For  a  survey  of  tax  models,  see  Shoven  and  Whalley  (1984). 
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depreciation  which  also  goes  to  the  capital  account.  Note  that 
depreciation  equals  the  depreciation  rate  depr(i)  times  the  value 
of  productive  capital  valued  at  replacement  cost,  an  economic 
rather  than  a  tax  definition.  The  enterprise  institution  also 
receives  business  transfer  payments  from  the  government.  The 
property  institution  receives  the  factor  income  for  land. 

Net  institutional  income  is  apportioned  to  households  using  fixed 
share  parameters,  sintyh (hh, ins) ,  which  represent  shares  of  each 
type  of  institutional  income  received  by  the  different  household 
categories.  For  these  parameters,  the  sum  over  households  equals 
one  for  all  institutions.  The  USDA/ERS  CGE  model  can  distinguish 
households  in  either  of  two  ways:  (1)  according  to  income  class 
(such  as  lower  40th  percentile,  mid-40th  percentile,  and  upper 
20th  percentile) ;  or  (2)  according  to  function  or  income  source, 
such  as  workers,  capitalists  (or  rentiers) ,  and  transfer 
recipients. The  model  presented  in  Appendix  2  follows  the 
functional  household  definition.  For  example,  if  only  worker 
households  earn  the  economy's  labor  income,  the  share  to  worker 
households  is  one,  that  is  sintyh (worker , labor)  =  1;  while  for 
nonworker  households  it  is  zero.  All  distributed  profits  and 
property  income  go  to  rentier  households. 

Household  income  is  taxed,  saved,  or  spent  on  consumer  goods  and 
services.  The  income  received  by  households  includes  remittances 
from  abroad,  transfers  from  the  government,  and  factor  income. 
Household  income  tax  payments  are  computed  as  an  average  tax  rate 
times  gross  income,  which  includes  transfer  income  and 
remittances  from  abroad  (or  net  of  remittances  sent  out  of  the 
country) .  The  average  tax  rate,  htax(hh) ,  for  each  household 
type  is  calibrated  from  the  income  flows  and  taxes  paid  in  the 
base  year.  Household  average  savings  rates,  mps(hh),  are 
determined  as  the  ratio  of  household  savings  to  income  net  of 
taxes.  Household  remittances  from  abroad,  REMIT,  are  exogenous 
variables  denominated  in  foreign  currency.  Consequently,  they 
are  multiplied  by  the  exchange  rate  to  determine  domestic  income 
flows.  Household  remittance  shares,  rhsh(hh),  are  computed  from 
base-year  data. 

Sectoral  Composition  of  Expenditures 

There  are  a  number  of  parameters  that  determine  the  sectoral 
composition  of  various  categories  of  demand.  These  categories 
include:  (1)  demand  for  intermediate  inputs,  io(i,j);  (2) 
composition  of  capital  goods,  imat(i,j);  (3)  household  average 
expenditure  shares,  cles(i,hh);  (4)  investment  allocation  by 
sector  of  destination,  kish(i);  and  (5)  government  demand  shares, 
gles(i).  All  these  parameters  are  computed  from  base-year  data. 

i 

Intermediate  goods  are  demanded  in  fixed  proportions,  using 
input-output  coefficients  io(i,j)  defined  in  real  terms  (that  is. 


^^Adelman  and  Robinson  (1988)  and  Robinson,  Kilkenny,  and 
Adelman  (1989)  categorize  households  by  income  class.  Hanson, 
Robinson,  and  Tokarick  (1990)  categorize  by  income  source. 
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units  of  input  per  unit  output) .  Note  that  intermediate  demand 
is  for  the  composite  good.  The  elements  of  the  capital 
composition  matrix,  imat(i,j),  are  also  defined  in  real  terms  as 
units  of  composite  good  i  required  per  unit  of  capital  in  sector 
While  these  coefficients  are  fixed,  the  import  shares  are 
not  because  they  are  a  function  of  relative  prices  (given  the 
sectoral  import  aggregation  functions) . 

The  demand  by  household  hh  for  good  i  depends  on  the  cles(i,hh) 
parameters,  which  represent  expenditure  shares — the  fraction  of 
household  hh's  total  nominal  expenditure  that  is  spent  on  good  i. 
The  different  expenditure  shares  across  household  type  are 
estimated  from  data  on  expenditure  shares  by  income  class.  The 
government  sectoral  expenditure  shares,  gles(i),  are  defined  in 
real  terms  since  total  government  expenditure  (GDTOT)  is  defined 
as  a  real  magnitude.  These  shares  are  taken  from  the  input- 
output  table.  Finally,  the  allocation  of  total  nominal 
investment  by  sector  of  destination,  the  kish(i)  parameters,  are 
based  on  data  from  U.S.  Department  of  Commerce,  Bureau  of 
Economic  Analysis  (1987) . 


Implementing  the  CGE  Model  in  GAMS 

Table  8  presents  an  outline  of  a  CGE  model  programmed  in  GAMS. 

For  those  familiar  with  GAMS,  the  outline  uses  terms  describing  a 
typical  GAMS  program.  See  the  GAMS  manual  by  Brooke,  Kendrick, 
and  Meeraus  (1988) .  The  model  listing  in  Appendix  2  follows  this 
outline. 

A  GAMS  program  typically  starts  with  statements  that  define 
"sets"  used  in  the  model.  In  the  CGE  model,  these  sets  define 
the  various  indices  for  subscripted  variables  and  parameters.  We 
distinguish  sets  for  production  sectors,  factors  of  production, 
institutions,  and  households. 

Second,  we  declare  and  define  the  various  parameters  in  the 
model.  In  the  CGE  model,  there  are  three  kinds  of  parameters. 
First,  the  entire  base-year  SAM  is  read  in.  Second,  parameters 
that  are  estimated  outside  the  model,  such  as  various 
elasticities,  are  read  in.  Third,  based  on  the  read-in  data  and 
parameters,  the  remaining  parameters  are  computed,  completing  the 
calibration  process. 

Third,  the  endogenous  variables  in  the  model  are  declared  and 
defined.  The  solution  procedure  also  requires  that  all 
endogenous  variables  be  given  an  initial  value  to  start  the 
algorithm.  In  programming  models,  if  initial  values  are  not 
specified,  most  algorithms  try  a  guess  of  zero.  For  a  CGE  model, 
where  the  solution  is  expected  to  yield  strictly  positive  prices 
and  quantities,  such  a  guess  would  often  lead  to  singularities 


^^The  capital  composition  matrix  is  derived  from  the  capital 
flows  table  published  by  the  U.S.  Department  of  Commerce,  Bureau 
of  Economic  Analysis  (1985) . 
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Table  8 — Structure  of  a  GAMS  CGE  model 


1)  Sets 

a)  specified  sets 

b)  subsets 

2)  Parameters 

a)  parameter  declaration 

i)  exogenous  parameters 

ii)  calibrated  parameters 

b)  parameter  assignment 

i)  enter  data 

ii)  assign  exogenous  parameters 

iii)  calibrate  parameters 


3)  Variables 

a)  variable  declaration 

b)  variable  initialization 

4)  Display  input  Social  Accounting  Matrix  (SAM) 

5)  Equations 

a)  equation  declaration 

b)  equation  assignment 

i)  model  equations 

ii)  model  closure  and  variable  restrictions 

6)  Model  definition  and  solve  command 

7)  Calculate  and  display  result  tables 


or,  at  best,  nasty  scaling  problems.  It  is  important  to  provide 
guesses  as  close  as  possible  to  the  expected  solution.  We  use 
the  base-year  SAM  to  initialize  all  endogenous  variables. 

Fourth,  the  base-year  SAM  from  calibrated  parameters  is 
displayed.  This  SAM  should  replicate  the  initial  data  before  the 
model  is  solved,  and  provides  a  check  on  the  data  input, 
parameter  calibration,  and  initialization  of  endogenous 
variables.  If  the  calibration  procedure  is  done  correctly,  the 
solution  of  the  CGE  model  in  the  base  year  should  replicate  the 
initial  SAM  (within  acceptable  rounding  error) .  Printing  the 
pre-solution  and  post-solution  SAM's  facilitates  debugging  the 
calibration  process. 

Fifth,  the  equations  of  the  model  are  declared  and  defined.  The 
GAMS  program  follows  closely  the  presentation  of  equations  above. 
Then,  sixth,  the  model  is  defined  and  solved.  The  equations  that 
are  to  be  included  in  the  CGE  model  are  listed.  Next,  there  is  a 
SOLVE  statement  that  calls  a  solution  algorithm,  such  as  NLP  for 
nonlinear  programming,  to  solve  the  model. 

Finally,  after  the  SOLVE  statement  is  executed,  GAMS  has  solution 
values  for  all  endogenous  variables.  It  remains  only  to  print 
them.  This  is  done  in  part  seven.  GAMS  has  standard  defaults 
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for  printing  solution  reports.  We  turn  off  the  default  solution 
printing  and  generate  our  own  output  tables. 

After  a  base-year  or  "benchmark"  solution  is  created,  the  CGE 
model  will  typically  be  used  to  run  counterf actual ,  comparative 
static,  experiments.  A  parameter  or  exogenous  variable  is 
changed  and  the  model  is  solved  again.  Given  the  structure  of 
the  GAMS  program,  it  is  important  to  make  such  changes  after  the 
initialization  of  parameters,  but  before  the  model  SOLVE 
statement.  A  common  error  is  to  change  some  input  data  in  the 
parameter  assignment  part  of  the  program.  What  happens  in  this 
case  is  that  all  the  calibrated  parameters  are  changed  to  be 
consistent  with  the  changed  input  data,  completely  changing  the 
model.  The  result  is  not  a  comparative  statics  experiment,  but  a 
comparison  of  two  different  models  that  may,  depending  on  the 
nature  of  the  changed  parameters,  have  the  same  SAM.  We  have 
found  it  convenient  to  do  experiments  using  the  SAVE  and  RESTART 
commands  in  GAMS.  In  this  procedure,  the  base  solution  is  saved 
and  a  new  experiment  file  is  created  that  includes  the  model 
changes,  solve  statement,  and  display  statements  for  tables  of 
results.  Experiment  results  are  generated  by  using  the  RESTART 
option  when  running  the  experiment  GAMS  program. 


Applications,  Variations,  and  Extensions 

In  this  section,  we  discuss  how  the  USDA/ERS  CGE  model  has  been 
used.  The  model  is  very  close  to  the  Walrasian,  neoclassical 
paradigm.  In  most  applications,  it  is  necessary  to  make  changes 
in  the  institutional  and  behavioral  assumptions  in  order  to  have 
the  model  better  reflect  the  workings  of  an  actual  economy.  We 
will  discuss  some  changes  that  have  been  used  in  the  USDA/ERS 
model  to  analyze  policy  issues  relating  to  agriculture  and 
international  trade. 

Comparative  Statics  and  Dyneunics 

The  CGE  model  described  here  represents  a  single  period 
equilibrium.  None  of  the  arguments  in  the  various  equations 
involve  lagged  variables  or  expected  future  variables,  so  the 
model  is  really  timeless.  It  determines  a  flow  equilibrium  based 
on  signals  for  the  current  period  only.  A  given  benchmark 
solution  does,  however,  reflect  initial  conditions  and  past 
circumstances  captured  in  the  base-year  data  set. 


^^^We  make  no  attempt  to  provide  a  general  survey  of 
applications  of  CGE  models.  See  Robinson  (1989b)  for  a  survey  of 
applications  to  developing  countries,  Robinson  (1990)  and  Hertel 
(1990)  for  surveys  of  agriculture-focused  models,  de  Melo  (1988) 
for  a  survey  of  recent  trade-focused  CGE  models,  Shoven  and 
Whalley  (1984)  for  an  earlier  review  of  models  on  taxation  and 
trade,  and  Powell  and  Lawson  (1986)  for  a  review  of  policy 
modeling  with  the  Australian  ORANI  model. 
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The  most  common  use  of  CGE  models  is  to  do  comparative  statics 
experiments.  The  interpretation  of  the  results  involves  a  very 
simple  notion  of  time:  "long  enough"  for  all  specified 
equilibrium  conditions  to  be  satisfied.  Whether  that  period  is 
short,  medium,  or  long  run  depends  on  assumptions  about 
elasticities  and  factor  mobility  in  the  model.  For  example,  the 
basic  model  assumes  all  factors  are  mobile,  a  longrun  assumption. 

Since  the  first  applications  of  CGE  models  to  developing 
countries,  the  models  have  been  made  dynamic  by  solving  for  a 
sequence  of  time-recursive  solutions.  Time-dependent  variables 
(such  as  the  aggregate  capital  stock,  labor  force,  and  total 
factor  productivity)  are  "updated"  between  periods.  These  dated 
variables  are  assumed  exogenous  within  periods.  Time-recursive 
dynamic  paths  are  generated  as  a  sequence  of  static  CGE  models 
linked  by  an  intertemporal  model  that  updates  dated  variables. 

We  have  used  this  approach  with  the  USDA/ERS  model.  Adelman  and 
Robinson  (1988)  analyzed  the  1981  to  1985  period.  Robinson, 
Kilkenny,  and  Adelman  (1989)  used  forward  projections  from  1986 
to  1991.  Hanson,  Robinson,  and  Tokarick  (1990)  project  from  1988 
to  1991  and  1995.  In  the  last  two  applications,  the  CGE  model  is 
loosely  linked  to  econometric  macroeconomic  projection  models 
which  provide  estimates  of  real  GNP  growth,  foreign  prices,  the 
government  deficit,  the  balance  of  trade,  and  the  aggregate  price 
level.  Robinson,  Kilkenny,  and  Adelman  used  the  "Trend  Growth 
Model"  (TGM) ,  which  is  described  in  Monaco  (1987) .  Hanson, 
Robinson,  and  Tokarick  use  results  from  a  world  econometric  model 
developed  in  the  ERS  by  Malley  (1990).  The  macro  models  provide 
a  logical  framework  for  modeling  intertemporal  linkages  and 
nicely  complement  the  within-period  CGE  model. 

Adelman  and  Robinson  (1978)  describe  this  approach  to  dynamics  as 
"lurching  equilibrium"  and  it  captures  many  elements  of 
"adaptive"  dynamic  models  and  "temporary  equilibrium"  macro 
models. This  approach  to  dynamics  has  been  criticized  by  Bell 
and  Srinivasan  (1984)  who  argue  that  the  models  are  not  forward 
looking  and  hence  are  not  "truly"  dynamic.  There  are  a  few 
examples  of  forward-looking  dynamic  CGE  models,  ranging  from  two- 
period  to  longrun  multiperiod  models,  but  they  are  quite 
stylized. Bell  and  Srinivasan  also  note  that  dynamic 
equilibrium  models  can  only  be  used  to  generate  steady-state 
solutions,  and  that  such  solutions  are  usually  not  very 


^^This  is  the  technique  first  used  by  Adelman  and  Robinson 
(1978) .  It  has  later  been  used  in  applications  to  developing 
countries.  See  Dervis,  de  Melo,  and  Robinson  (1982). 

^^This  approach  to  linking  CGE  and  macro  models  is  described 
in  Robinson  and  Tyson  (1984)  and  has  also  been  used  in  Australia. 
See  Cooper,  McLaren,  and  Powell  (1985) . 

^^See  Day  and  Cigno  (1978)  for  examples  of  adaptive  dynamic 
models. 

^^See  Dervis  (1975),  Goulder  and  Eichengreen  (1989),  Goulder 
and  Summers  (1989),  Jorgenson  and  Wilcoxen  (1989),  and  Pereira 
and  Shoven  (1988) . 
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realistic.  Since  applied  models  build  on  existing  theory,  not 
advance  it,  future  advances  in  applied  dynamic  models  will 
require  further  theoretical  developments.  Parsell,  Powell,  and 
Wilcoxen  (1989)  discuss  some  recent  developments  in  reconciling 
applied  general  equilibrium  models  with  dynamic  macroeconomics. 

Factor  Markets 

In  the  basic  model,  all  primary  factors  of  production  are 
perfectly  mobile.  Given  the  fixed  total  supplies  of  primary 
factors,  economywide  average  factor  prices  adjust  to  maintain 
full  employment  equilibrium.  An  alternative  widely  used  in 
models  of  developing  countries  is  to  assume  the  sectoral 
employment  of  a  primary  factor  such  as  capital  is  fixed.  The 
underlying  story  is  that  the  model  incorporates  a  shortrun 
adjustment  period  in  which  capital  is  assumed  immobile. 

Fixing  factor  employment  by  sector  amounts  to  adding  equations  to 
the  system,  so  an  equal  number  of  endogenous  equilibrating 
variables  must  be  included.  With  sectoral  capital  stocks  fixed, 
one  must  assume  that  sectoral  rental  rates  will  vary.  This 
specification  is  easily  accommodated  in  the  CGE  model  by 
redefining  the  wfdist(i,f)  parameters  as  variables  and  fixing  the 
average  factor  price  variable  to  one.  Kilkenny  and  Robinson 
(1988,  1990)  use  this  specification  to  explore  the  effect  of 
policy  changes  under  different  assumptions  about  factor  mobility. 

Another  common  factor  market  assumption  is  to  assume  that  the 
wage  is  not  flexible.  With  a  fixed  wage,  the  labor  market  is 
assumed  to  be  rationed.  The  standard  assumption  is  that 
producers  hire  as  much  labor  as  they  wish  at  the  fixed  wage  and 
that  suppliers  are  rationed;  that  is,  there  is  involuntary 
unemployment.  This  specification  is  easily  accommodated  in  the 
CGE  model  by  specifying  the  wage  as  an  exogenous  variable  and 
aggregate  labor  supply  as  endogenous.  This  option  is  noted  with 
comments  in  the  GAMS  listing  in  Appendix  2. 

Modeling  Agricultural  Progreims 

The  USDA/ERS  model  was  developed  to  analyze  the  impact  on  the 
economy  of  proposed  changes  in  agricultural  policies.  To  date, 
most  of  the  applications  have  concerned  trade  liberalization  and 
have  worked  with  a  10-sector  version  of  the  model. The 
standard  approach  to  modeling  agricultural  programs  has  been  to 
measure  their  total  cost  and  use  an  equivalent  fixed  ad  valorem 
subsidy  in  the  model. In  the  CGE  model,  this  approach  would 
be  implemented  by  creating  a  subsidy  parameter  that  would  enter 
the  model  as  a  negative  indirect  tax.  Everywhere  the  parameter 
itax(i)  appears,  there  would  be  an  additional  subsidy  parameter. 


^^See  Robinson,  Kilkenny,  and  Adelman  (1989) . 

^®These  subsidy  rates,  called  producer  subsidy  equivalents 
or  PSE's,  have  been  computed  for  a  number  of  countries.  The  data 
are  reported  in  U.S.  Department  of  Agriculture,  Economic  Research 
Service  (1988) . 
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Kilkenny  and  Robinson  (1988,  1990)  argue  that  using  ad  valorem 
eguivalents  is  not  an  adequate  approach  to  modeling  the  complex 
mix  of  agricultural  policies  in  the  United  States.  They  have 
extended  the  basic  CGE  model  to  include  an  explicit  modeling  of 
the  different  government  programs  affecting  U.S.  agriculture, 
including  import  rationing,  export  subsidies,  deficiency  d 

payments,  and  government  stocking.  Their  empirical  results 
indicate  that  explicit  modeling  of  the  programs  is  especially 
important  when  estimating  changes  in  the  cost  of  government 
programs  under  different  macro  and  policy  scenarios,  as  well  as 
for  welfare  analysis  and  analysis  of  the  effect  on  linked  sectors 
of  policy  changes. 

The  explicit  modeling  of  agricultural  programs  is,  of  necessity, 
fairly  stylized  in  the  context  of  a  10-sector  model  with  only  3 
agricultural  sectors.  The  basic  model  has  recently  been  expanded 
to  include  30  sectors  in  order  to  provide  a  better  framework  for 
such  analysis.^’  This  expanded  model  should  provide  a  richer 
framework  for  analyzing  trade  liberalization  scenarios  and 
proposed  policy  changes  being  discussed  in  the  context  of  the 
1990  farm  bill. 


.( 


^’Kilkenny  (1990)  describes  how  agricultural  programs  are 
modeled  in  the  new  30-sector  model. 
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Appendix  1:  Model  Summary 

This  appendix  brings  together  all  the  model  equations,  including 
the  list  of  variable  and  parameter  definitions.  Endogenous 
variables  are  in  upper  case  and  parameters  are  in  lower  case.  To 
treat  a  variable  as  exogenous,  we  add  the  suffix  ".FX"  (which 
means  "fixed").  The  suffix  " . L"  means  "level"  and  refers  to  the 
value  of  a  variable.  These  suffixes  follow  the  GAMS  language. 

In  GAMS,  before  the  model  is  solved,  the  .L  suffix  denotes  an 
initial  guess.  After  solution,  it  denotes  the  solution  value. 

Indices  are  also  in  lower  case,  but  are  always  given  in 
parentheses.  In  some  equations,  the  index  is  replaced  by  a 
specific  entry,  given  in  quotes.  As  noted  earlier,  the  words  SUM 
and  PROD  denote  the  summation  and  product  operators  over  the 
index  given  after  the  left  parenthesis  (S  and  H) . 

Indices 


i.  j 

im 

imn 

ie 

ien 

ied 

iedn 

f 

ins 

hh 


Sectors 

Sectors  with  imports 

Sectors  without  imports:  im  +  imn  =  i 
Sectors  with  exports 

Sectors  without  exports:  ie  +  ien  =  i 
Sectors  with  world  export  demand  functions 
Sectors  with  fixed  world  export  prices:  ied  +  iedn  =  ie 
Factors  of  production:  "labor,"  "capital,"  and  "land" 
Institutions:  "labr,"  labor;  "ent,"  enterprises; 

"prop,"  proprietors 
Household  types 


Parameters 

ac ( im) 
ad(i) 

alpha (i , f ) 

at ( ie) 

cles(i,hh) 

delta( im) 

depr(i) 

dstr (i) 

econst(ied) 

esr 

etr 

fs(f) 

gamma ( ie) 

gles(i) 

htax(hh) 

imat(i, j ) 

io(i,j) 

itax(i) 

kish(i) 

mps (hh) 

pwm( im) 

pwse ( ied) 

rhoc(im) 


CES  function  shift  parameter 
Production  function  shift  parameter 
Share  parameter  in  production  function 
GET  function  shift  parameter 
Household  expenditure  shares 
CES  function  share  parameter 
Depreciation  rate 

Ratio  of  inventory  investment  to  domestic  output 

Export  demand  function  shift  parameter 

Enterprise  saving  rate 

Enterprise  tax  rate 

Aggregate  factor  supply 

GET  function  share  parameter 

Government  expenditure  shares 

Household  income  tax  rate 

Capital  composition  matrix 

Input-output  coefficients 

Indirect  business  tax  rate 

Shares  of  investment  by  sector  of  destination 

Household  saving  rate 

World  price  of  imports 

World  price  of  export  substitutes 

CES  function  exponent 
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rhot(ie) 

rhsh(hh) 

sintyh(hh, ins) 

sstr 

tm( im) 

tmreal(im) 

te(ie) 

tereal(ie) 

thsh(hh) 

wfdist ( i , f ) 

GET  function  exponent 

Household  remittance  share 

Household  distribution  of  institutional  income 
Social  security  tax  rate 

Tariff  rate  on  imports 

Real  tariff  rate 

Export  subsidy  rates 

Real  export  subsidy  rate 

Household  share  of  government  transfers 

Factor  market  distortion  parameters 

Variables 


Prices  Block 

EXR 

P(i) 

PD(i) 

PE(i) 

PINDEX 

PK(i) 

PM(i) 

PVA(i) 

PWE(i) 

PX(i) 

Exchange  rate 

Price  of  composite  good 

Domestic  sales  price 

Domestic  price  of  exports 

GNP  deflator 

Price  of  a  unit  of  capital  in  each  sector 
Domestic  price  of  imports 

Value  added  price 

World  price  of  exports 

Output  price 

Production  Block 


E(i) 

Exports 

FDSC(i,f) 

INT(l) 

M(i) 

WF(f) 

X(i) 

XD(i) 

XXD(l) 

Factor  demand 

Intermediate  input  demand 

Imports 

Average  factor  price 

Composite  goods  supply 

Domestic  output 

Domestic  sales 

Income  and  Expenditure  Blocks 


CD(i) 

DEPRECIA 

DK(i) 

DST(i) 

ENTSAV 

ENTTAX 

FBOR 

FXDINV 

FSAV 

GD(i) 

GDTOT 

GENT 

GNPVA 

GOVSAV 

GR 

HHSAV 

HHT 

Final  demand  for  private  consumption 

Total  depreciation  charges 

Fixed  Investment  by  sector  of  destination 
Inventory  investment  by  sector 

Enterprise  savings 

Enterprise  tax  revenue 

Net  foreign  borrowing 

Fixed  capital  investment 

Foreign  savings 

Final  demand  for  government  consumption 

Aggregate  real  government  consumption 

Transfer  payments  from  government  to  enterprises 
Nominal  GNP  or  value  added  in  market  prices 
Government  savings 

Total  government  revenue 

Total  household  savings 

Government  transfer  payments  to  households 
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ID(i) 

Final  demand  for  investment  goods 

INDTAX 

Total  indirect  tax  revenue 

INVEST 

Total  investment 

NETSUB 

Total  export  subsidies 

REMIT 

Net  remittances  from  abroad 

RGNP 

Real  GNP 

SAVINGS 

Total  savings 

SSTAX 

Social  security  tax  revenue 

TARIFF 

Tariff  revenue 

TOTHHTAX 

Household  tax  revenue 

YFCTR(f) 

Factor  income 

YH(hh) 

Household  income 

YINST(ins) 

Institutional  income 

Equations 

Prices 


(1) 

im 

PM(im) 

=  pwm(im)*(l  +  tm(im))*EXR 

(2) 

ie 

PE(ie) 

=  PWE(ie)*(l  +  te(ie))*EXR 

(3) 

i 

P(i) 

=  (PD(i)*XXD(i)  +  PM(i)*M(i))/X(i) 

(4) 

i 

PX(i) 

=  (PD(i)*XXD(i)  +  PE(i)*E(i))/XD(i) 

(5) 

i 

PVA(i) 

=  PX(i)*(l  -  itax(i))  -  SUM(j ,io(j ,i)*P(j)) 

(6) 

i 

PK(i) 

=  SUM(j,  P(J)*imat(j,i)) 

(7)  1 

Production 

PINDEX 

=  GNPVA/RGNP 

(8) 

i 

XD(i) 

=  ad(i)*PR0D(f ,  FDSC(i , f )**alpha( i , f ) ) 

(9) 

i,f 

WF(f)*wfdis 

t(i,f)  =  PVA(i)*alpha(i,f)*XD(i)/FDSC(i,f) 

(10) 

i 

INT(i) 

=  SUM(j,  io(i,j)*XD(j)) 

(11) 

ie 

XD(ie) 

=  at ( ie)*(gamma( ie)*E(ie)**rhot ( ie) 

+  (1  -  gamma(ie) )*XXD(ie)**rhot(ie) )**(l/rhot(ie) ) 

(12) 

ien 

XD(ien) 

=  XXD(ien) 

(13) 

ie 

E(ie) 

=  XXD(ie)*(PE(ie)/PD(ie)*(l  -  gamma(ie))/ 
gamma (ie) )**(l/(rhot ( ie) -1) ) 

(14) 

ied 

E(ied) 

=  econst(ied)*(  (PWE(ied) /pwse(ied)  )*■*■(  -rhoe(ied)  )  ) 

(15) 

im 

X(im) 

=  ac(im)*(delta(im)*M(im)**( -rhoc(im) )  + 

(l-delta(im) )*XXD( im)**( -rhoc(im) ) )**( -l/rhoc(im) ) 

(16) 

imn 

X( imn) 

=  XXD(imn) 

(17) 

im 

M(  im) 

=  XXD(im)*((PD(im)/PM(im))*(delta(im)/ 

(1  -  delta(im))))**(l/(I  +  rhoc(im))) 

Income  Generation 

(18) 

f 

YFCTR(f) 

=  SUM(i,  WF(f)*wfdist(i,f)*FDSC(i,f)) 

(19) 

1 

YINSTC'labr 

")  =  YFCTR( "labor")  -  SSTAX 

(20) 

1 

YINSTC'prop 

")  =  YFCTRC’land") 

(21) 

1 

YINSTC'ent" 

)  =  YFCTR( "capital")  +  GENT  -  ENTSAV  -  ENTTAX 

-  DEPRECIA 

(22) 

hh 

YH(hh) 

=  SUM(ins,  sintyh(hh, ins)*YINST(ins) ) 

+  rhsh(hh)*REMIT*EXR  +  thsh(hh)*HHT 

(23) 

1 

TARIFF 

=  SUM(im,  tm( im)*pwm(im)*M( im) )*EXR 

(24) 

1 

INDTAX 

=  SUM(i,  itax(i)*PX(i)*XD(i)) 

(25) 

1 

NETSUB 

=  SUM(ie,  te(ie)*PWE(ie)*E(ie))*EXR 

(26) 

1 

SSTAX 

=  sstr*YFCTR(" labor") 
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(27) 

1 

ENTTAX 

■= 

etr*(YFCTR( "capital")  -  DEPRECIA  +  GENT) 

(28) 

1 

TOTHHTAX 

= 

SUM(hh,  htax(hh)*YH(hh) ) 

(29) 

1 

DEPRECIA 

= 

SUM ( i ,  depr ( i ) *PK ( i ) *FDSC ( i , " cap i tal " ) ) 

(30) 

1 

ENTSAV 

= 

ESR*(YFCTR( "capital")  +  GENT  -  ENTTAX  -  DEPRECIA) 

(31) 

1 

HHSAV 

= 

SUM(hh,  mps(hh)*YH(hh)*(l  -  htax(hh))) 

(32) 

1 

GR 

TARIFF  -  NETSUB  +  INDTAX  +  TOTHHTAX  +  SSTAX 
+  ENTTAX  +  FBOR*EXR 

(33)  1 

Expenditure 

SAVINGS 

HHSAV  +  GOVSAV  +  DEPRECIA  +  FSAV*EXR  +  ENTSAV 

(34) 

i 

P(i)*CD(i) 

= 

SUM(hh,  cles(i,hh)*(l  -  mps (hh) )*YH(hh) 

*(1  -  htax(hh))) 

(35) 

i 

GD(i) 

= 

gles(i)*GDTOT 

(36) 

i 

DST(i) 

= 

dstr(i)*XD(i) 

(37) 

1 

FXDINV 

= 

INVEST  -  SUM(i,  DST(i)*P(i)) 

(38) 

i 

PK(i)*DK(i) 

= 

kish(i)*FXDINV 

(39) 

i 

ID(i) 

= 

SUM(j,  imat(l,j)*DK(j)) 

(40) 

1 

GNPVA 

= 

SUM(i,  PVA(l)*XD(i))  +  INDTAX  +  TARIFF  -  NETSUB 

(41)  1 

Equilibrium 

RGNP 

Conditions 

SUM(i,  CD(i)  +  DST(i)  +  ID(i)  +.  GD(i)) 

+  SUM(ie,  (1  -  tereal(ie) )*E(ie) ) 

-  SUM(im,  (1  -  tmreal(im) )*M(im) ) 

(42) 

i 

X(i) 

INT(i)  +  CD(i)  +  GD(i)  +  ID(i)  +  DST(i) 

(43) 

f 

SUM(i,  FDSC(i,f))  =  fs(f) 

(44) 

1 

GR 

= 

SUM(i,  P(i)*GD(i))  +  GOVSAV  +  GENT  +  HHT 

(45) 

1 

SUM(im,  pwm(im)*M(im))  =  SUM(ie,  PWE(ie)*E(ie) ) 

+  FSAV  +  REMIT  +  FBOR 

(46) 

1 

SAVINGS 

= 

INVEST 

Macro 

Closure:  Balance 

of 

Trade 

(47) 

1 

FSAV . FX 

fsav, 1 

(48) 

1 

REMIT . FX 

= 

remit . 1 

(49) 

1 

FBOR.FX 

= 

fbor . 1 

Macro 

Closure :  Government 

Balance 

(50) 

1 

GDTOT . FX 

gdtot . 1 

(51) 

1 

GENT . FX 

= 

gent. 1 

(52) 

1 

HHT . FX 

= 

hht.l 

Numeraire 

Price  Index 

(53) 

1 

PINDEX.FX 

= 

p index. 1 

Nontraded 

Sectors  and 

Fixed  Export  Prices 

(54) 

imn 

PM.FX(imn) 

s 

0 

(55) 

imn 

M.FX(imn) 

= 

0 

(56) 

ien 

PE.FX(ien) 

= 

0 

(57) 

ien 

E.FX(ien) 

= 

0 

(58) 

iedn 

PWE.FX(iedn)  = 

=  pwe.l(iedn) 
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Appendix  2:  GAMS  Listing  of  U.S.  CGE  Model 

This  appendix  provides  a  listing  of  the  output  from  a  GAMS 
execution  of  the  U.S.  model  for  1982.  Some  output  tables  have 
been  omitted  to  save  space. 

In  solving  CGE  models,  the  GAMS  program  uses  software  designed  to 
solve  nonlinear  programming  problems.  The  solver  most  commonly 
used  is  the  MINOS  program  developed  at  Stanford  University, 
described  in  Appendix  D  of  Brooke,  Kendrick,  and  Meeraus  (1988) . 
The  CGE  model  is  treated  by  MINOS  as  a  special  programming 
problem  that  happens  to  have  a  unique  feasible  basis.  Since 
there  is  only  one  feasible  solution  that  satisfies  the  constraint 
equations,  it  does  not  matter  what  the  objective  function  is.  In 
the  model  listed  here,  we  specify  real  GNP  as  the  maximand.  A 
good  test  of  whether  the  model  is  specified  correctly  is  to  solve 
the  problem  twice,  first  maximizing  GNP  and  second  minimizing 
GNP.  If  the  CGE  model  is  properly  specified,  it  will  have  a 
unique  solution  and  the  two  solutions  should  be  the  same. 

Using  a  nonlinear  programming  algorithm  to  solve  a  "square"  model 
(that  is  one  with  as  many  constraints  as  variables)  seems  a  bit 
wasteful.  The  algorithm  MINOS  uses  to  find  a  feasible  basis, 
however,  appears  to  provide  a  very  robust  approach  to  solving 
systems  of  simultaneous  nonlinear  equations.  In  the  GAMS 
implementation  of  MINOS,  it  is  possible  to  change  parameters 
determining  how  MINOS  operates  so  as  to  greatly  improve  its 
performance  as  an  equation  solver.  The  new  parameters  are 
specified  in  a  file  called  MIN0S5.0PT  which  GAMS  reads  when  it 
starts  to  solve  the  problem.  The  MIN0S5.0PT  file  for  solving  CGE 
models  is  listed  below: 

BEGIN 

START  ASSIGNED  NONLINEARS  BASIC 

END 

The  details  of  how  to  use  the  MIN0S5.0PT  file  are  described  in 
Appendix  D.2  of  Brooke,  Kendrick,  and  Meeraus  (1988).  While 
changing  these  parameters  usually  improves  the  performance  of 
MINOS  in  solving  CGE  models,  it  may  make  things  worse.  If  the 
algorithm  fails,  try  again  without  using  the  MIN0S5.0PT  file. 

In  doing  experiments  with  the  GAMS  CGE  model,  save  the  base 
solution  and  use  it  as  a  starting  point  for  doing  experiments. 

In  GAMS,  a  solution  can  be  saved  and  reused  using  the  "SAVE"  and 
"RESTART"  options.  See  the  GAMS  manual  for  details.  Specifying 
this  option  saves  the  base-year  solution  as  the  initial  "guess" 
for  another  model.  The  GAMS  programs  for  doing  experiments  may 
then  be  written  in  a  few  lines.  One  need  only  specify  changes  in 
parameters  or  exogenous  variables  and  add  a  new  SOLVE  statement. 
Following  the  SOLVE  statement,  a  list  of  display  statements  may 
be  copied  from  the  base-year  GAMS  program  to  output  results. 

Given  that  the  entire  base  solution  is  stored,  one  can  easily 
generate  "ratio  to  base"  tables  by  renaming  the  new  results 
tables  and  computing  ratios  to  the  old  tables  (which  contain  the 
saved  original  base  solution) . 
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STITLE  USDA/ERS  GAMS  U.S.  CGE  MODEL  FOR  1982 
SOFFSYMLIST  OFFSYMXREF  OFFUPPER 

*####  U.S.  CGE  MODEL  WITH  1982  DATA  BASE,  Billions  of  Dollars. 

*USDA/ERS  GNP  Version,  April  1990 

♦Programmed  by:  Sherman  Robinson,  Kenneth  Hanson,  and  Maureen  Kilkenny. 
* 

♦The  model  is  based  on  GNP  data,  and  includes  exports  and  imports  of 
*factor  services. 


SET  DECLARATION 


SETS 


I 

SECTORS 

/ 

Ivstk 

dai ry  and  meat 

expcrp 

grains  and  oilseeds 

othcrp 

other  agriculture 

agproc 

agric  processing 

ag  i  np 

agric  inputs 

intmnf 

interm  manuf 

fdmnf 

final  demand  manuf 

trdtrn 

trade  and  transport 

service 

services 

resta 

real  estate  / 

F 

FACTORS  OF  PRODUCTION 

/ 

labor 

labor 

capital 

capital 

land 

agricultural  land  / 

INS 

INSTITUTIONS 

/ 

labr 

labor 

ent 

enterprises 

prop 

property  / 

HH 

HOUSEHOLD  TYPE 

/ 

hhtrn 

transfer  recipients 

hhlab 

wage  earners 

hhcap 

rentiers  / 

♦  The 

institution  names  and 

the 

factor 

names  "capital"  and  "lar 

*  are  referred  to  explicitly  below.  If  changed,  they  must  also  be 

*  changed  where  referenced. 

*  The  printing  of  the  GNP  accounts  assume  that  there  is  a  sector 

*  labelled  "service." 


*##  SUBSETS  DEFINED  BELOW:  "DEFINE  INDEXES" 


lAG(I)  AG  SECTORS  /  Ivstk,  expcrp,  othcrp  / 

lAGN(I)  NON  AG  SECTORS 


IE(I) 

lED(I) 

lEDNd) 

lEN(I) 


EXPORT  SECTORS 

SECTORS  WITH  EXPORT  DEMAND  EQN 
SECTORS  WITH  NO  EXPORT  DEMAND  EQN 
NON  EXPORT  SECTORS 


IM(I)  IMPORT  SECTORS 

IMN<I)  NON  IMPORT  SECTORS 


ALIAS(I,J)  ; 

*##  for  SAM 
SET  ISAM  categories 

/COMMDTY, ACTIVITY, VALUAD,INSTTNS, HOUSEHOLDS, 
GOVT , KACCOUNT , WORLD , TOTAL/ 

ISAMI(isam)  /TOTAL/ 

ISAM2(isam)  ; 

AL I AS ( i sam2 , i sam3 ) ; 

PARAMETER  SAM( isam, isam)  SOCIAL  ACCOUNTING  MATRIX  ; 
isam2(isam)  =  NOT  isaml(isam)  ; 
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75 
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77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 


*m»UMHumuum»ummu»HU  parameter  declaration 

PARAMETERS 


*###  READ  IN  PARAMETERS 


ENTTAXO 

ENTERPRISE  TAX  REVENUE 

ENTSAVO 

ENTERPRISE  SAVINGS 

EXRO 

EXCHANGE  RATE 

E0(i) 

EXPORTS 

FBORO 

NET  FOREIGN  BORROWING 

FSAVO 

NET  FOREIGN  SAVINGS 

GDTOTO 

TOTAL  VOLUME  OF  GOVERNMENT  CONSUMPTION 

GENTO 

PAYMENTS  FROM  GOVERNMENT  TO  ENTERPRISES 

GOVSAVO 

GOVERNMENT  SAVINGS 

HHSAVO 

HOUSEHOLD  SAVINGS 

HHTO 

HOUSEHOLD  TRANSFERS 

INVESTO 

TOTAL  INVESTMENT 

M0(  i ) 

IMPORTS 

MPSO(hh) 

HOUSEHOLD  MARGINAL  PROPENSITY  TO  SAVE 

PD0( i ) 

DOMESTIC  GOODS  PRICE 

PE0( i ) 

DOMESTIC  PRICE  OF  EXPORTS 

PINDEXO 

GNP  DEFLATOR 

PMO(i) 

DOMESTIC  PRICE  OF  IMPORTS 

REMITO 

NET  REMITTANCES  FROM  ABROAD 

SSTAXO 

SOCIAL  SECURITY  TAX  REVENUE 

TOTHHTAXO 

HOUSEHOLD  TAX  REVENUE 

XDO(i) 

DOMESTIC  OUTPUT,  VOLUMNE 

*#  READ  IN  TABLE  FOR  INITIALIZATION  OF  VARIABLES  (NEED  NOT  BE  DECLARED) 

*  TABLE  FCTRESl(i,f)  FACTOR  DEMAND  BY  SECTOR 

*  TABLE  FCTRY(i,f)  FACTOR  INCOME  BY  SECTOR 

*##  READ  IN  PARAMETERS  AS  RATES,  SHARES,  ELASTICITIES 
DEPR(i)  DEPRECIATION  RATES 

DSTR(i)  RATIO  OF  INVENTORY  INVESTMENT  TO  GROSS  OUTPUT 

ESR  ENTERPRISE  SAVINGS  RATE 

ETR  ENTERPRISE  TAX  RATE 

GLES(i)  GOVERNMENT  CONSUMPTION  SHARES 

HTAX(hh)  HOUSEHOLD  TAX  RATE 

ITAX(i)  INDIRECT  TAX  RATES 

KISHCi)  SHARES  OF  INVESTMENT  BY  SECTOR  OF  DESTINATION 

RHSH(hh)  HOUSEHOLD  REMITTANCE  SHARE 

RHOC(i)  ARMINGTON  FUNCTION  EXPONENT 

RHOE(i)  EXPORT  DEMAND  PRICE  ELASTICITY 

RHOT(i)  CET  FUNCTION  EXPONENT 

SSTR  SOCIAL  SECURITY  TAX  RATE 

TE(i)  EXPORT  SUBSIDY  RATES 

TM(i)  TARIFF  RATES  ON  IMPORTS 

THSH(hh)  HOUSEHOLD  SHARES  OF  GOVERNMENT  TRANSFERS 


*#  READ  IN  TABLE  OF  PARAMETERS  (NEED  NOT  BE  DECLARED) 


*  TABLE  CLES(i,hh) 

*  TABLE  IMAT(i,j) 

*  TABLE  IO(i,j) 

*  TABLE  SINTYH(hh,ins) 


HOUSEHOLD  CONSUMPTION  SHARES 
CAPITAL  COMPOSITION  MATRIX 
INPUT-OUTPUT  COEFFICIENTS 

HOUSEHOLD  DISTRIBUTION  OF  INSTITUTIONAL  INCOME 


*###  COMPUTED  PARAMETERS  FROM  READ  IN  DATA  (CALIBRATION) 


*##  COMPUTED  PARAMETERS  FOR  INITIALIZATION  OF  VARIABLES 
DEPRECIAO  TOTAL  DEPRECIATION  EXPENDITURE 
FDO(f)  FACTOR  DEMAND,  AGGREGATE 

FSO(f)  FACTOR  SUPPLY,  AGGREGATE 

INTO(i)  INTERMEDIATE  INPUT  DEMAND 

NETSUBO  EXPORT  DUTY  REVENUE 

P0(i)  PRICE  OF  COMPOSITE  GOOD 

PKO(i)  CAPITAL  GOODS  PRICE  BY  SECTOR  OF  DESTINATION 
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138 

139 

HO 

HI 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 


PVAO<i) 

PWM(i) 

PWEO(i) 

PWSE<i) 

PXO(i) 

VARO(i) 

WFDIST(i,f) 

WFO(f) 

XXDO(i) 

XO(i) 

YFCTRO(f) 

YFLANDO(i) 

YFSECTO(i) 

YHO(hh) 

YINSTO(ins) 


VALUE  ADDED  PRICE  BY  SECTOR 

WORLD  MARKET  PRICE  OF  IMPORTS  (IN  DOLLARS) 

WORLD  PRICE  OF  EXPORTS 
WORLD  PRICE  OF  EXPORT  SUBSTITUTES 
AVERAGE  OUTPUT  PRICE 
VALUE  ADDED  RATE  BY  SECTOR 

FACTOR  PRICE  SECTORAL  PROPORTIONALITY  CONSTANTS 

FACTOR  PRICE,  AGGREGATE  AVERAGE 

DOMESTIC  SALES,  VOLUMNE 

COMPOSITE  GOOD  SUPPLY,  VOLUMNE 

FACTOR  INCOME  SUMMED  OVER  SECTOR 

FACTOR  INCOME  FOR  LAND  AS  FRACTION  OF  CAPITAL  INCOME 
FACTOR  INCOME  BY  SECTOR 
HOUSEHOLD  INCOME 
INSTITUTIONAL  INCOME 


*##  COMPUTED 
AC(i) 

AD(i) 

ALPHA<i,f) 

AT(i) 

DELTA(i) 

ECONST(i) 

GAMMA(i) 

PWTS(i) 

QD(i) 

RMD(i) 

SUMSH 

SUMHHSH(hh) 

SUMIMSH(i) 

TEREAL(i) 

TMREAL(i) 


PARAMETERS  AS  RATES,  SHARES 

ARMINGTON  FUNCTION  SHIFT  PARAMETER 

PRODUCTION  FUNCTION  SHIFT  PARAMETER 

FACTOR  SHARE  PARAMETER-PRODUCTION  FUNCTION 

CET  FUNCTION  SHIFT  PARAMETER 

ARMINGTON  FUNCTION  SHARE  PARAMETER 

EXPORT  DEMAND  CONSTANT 

CET  FUNCTION  SHARE  PARAMETER 

PRICE  INDEX  WEIGHTS 

DUMMY  VARIABLE  FOR  COMPUTING  AD(i) 

RATIO  OF  IMPORTS  TO  DOMESTIC  SALES 
SUM  OF  SHARE  CORRECTION  PARAMETER 
SUM  OF  SHARE  FOR  HH  CLES 
SUM  OF  SHARE  FOR  I  MAT 

REAL  EXPORT  SUBSIDY  RATE  IN  1982  DOLLARS 
REAL  TARIFF  RATE  IN  1982  DOLLARS 


*##  TABLES  USED  FOR  LOADING  VARIABLE  RESULTS 


*  TABLE  SCALRES(*) 

*  TABLE  SECTRES(*,i) 

*  TABLE  FCTRES1(i,f) 

*  TABLE  FCTRES2(*,f) 

*  TABLE  INSRES(*,ins) 

*  TABLE  HHRES(*,hh) 


AGGREGATE  RESULTS 

SECTORAL  PRICE  AND  QUANTITY  RESULTS 
FACTOR  DEMAND  RESULTS 
FACTOR  WAGE,  SUPPLY  AND  INCOME  RESULTS 
INSTITUTIONAL  INCOME  RESULTS 
HOUSEHOLD  SAVINGS  AND  INCOME  RESULTS 


PARAMETER  ASSIGNMENT 


TABLE  IO(i,j)  INPUT-OUTPUT  COEFFICIENTS 


LVSTK 

EXPCRP 

OTHCRP 

AGPROC 

AGINP 

LVSTK 

0.168150 

0.028372 

0.008224 

0.136023 

0.000958 

EXPCRP 

0.271862 

0.063924 

0.003564 

0.042413 

0.010264 

OTHCRP 

0.001403 

0.001924 

0.034676 

0.029118 

0.000696 

AGPROC 

0.027162 

0.001427 

0.003346 

0.219018 

0.016157 

AGINP 

0.215859 

0.194453 

0.141894 

0.008308 

0.127179 

INTMNF 

0.007833 

0.023602 

0.042830 

0.096847 

0.488054 

FDMNF 

0.013962 

0.014380 

0.015201 

0.037832 

0.026911 

TRDTRN 

0.064683 

0.066275 

0.057563 

0.078776 

0.086941 

SERVICE 

0.061396 

0.076441 

0.063132 

0.068066 

0.086447 

RESTA 

0.022761 

0.101945 

0.042404 

0.003908 

0.004418 

+ 

INTMNF 

FDMNF 

TRDTRN 

SERVICE 

RESTA 

LVSTK 

0.000265 

0.000059 

0.000069 

0.000575 

0.000000 

EXPCRP 

0.000124 

0.000037 

0.000086 

0.000355 

0.000005 

OTHCRP 

0.001697 

0.000165 

0.000072 

0.000630 

0.000078 

AGPROC 

0.005055 

0.011437 

0.001673 

0.020583 

0.000037 

AGINP 

0.032723 

0.012603 

0.045185 

0.020652 

0.005944 

INTMNF 

0.283883 

0.167023 

0.011284 

0.069580 

0.001440 
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207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 


FDMNF 

0.048351 

0.233953 

0.031024 

0.043826 

0.008954 

TRDTRN 

0.069999 

0.070436 

0.074135 

0.040961 

0.004047 

SERVICE 

0.106268 

0.100089 

0.156346 

0.156056 

0.091112 

RESTA 

9 

0.023195 

0.009930 

0.026575 

0.022218 

0.070271 

TABLE  IMAT(i 

,j)  CAPITAL 

COMPOSITION 

MATRIX 

LVSTK 

EXPCRP 

OTHCRP 

AGPROC 

AGINP 

LVSTK 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

EXPCRP 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

OTHCRP 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

AGPROC 

0.000024 

0.000000 

0.000000 

0.000128 

0.000048 

AGINP 

0.107920 

0.572183 

0.572183 

0.000449 

0.045514 

INTMNF 

0.021095 

0.012547 

0.012547 

0.038457 

0.054939 

FDMNF 

0.358399 

0.109671 

0.109671 

0.852829 

0.746376 

TRDTRN 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

SERVICE 

0.512562 

0.305599 

0.305599 

0.108137 

0.153123 

RESTA 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

+ 

INTMNF 

FDMNF 

TRDTRN 

SERVICE 

RESTA 

LVSTK 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

EXPCRP 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

OTHCRP 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

AGPROC 

0.000039 

0.000088 

0.000326 

0.003320 

0.003957 

AGINP 

0.001101 

0.000340 

0.000371 

0.008710 

0.011875 

INTMNF 

0.043006 

0.011048 

0.007640 

0.018766 

0.000125 

FDMNF 

0.626612 

0.886306 

0.867568 

0.235520 

0.055912 

TRDTRN 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

SERVICE 

0.329243 

0.102218 

0.124095 

0.708126 

0.891418 

RESTA 

9 

0.000000 

0.000000 

0.000000 

0.025558 

0.036713 

*  FACTORS  OF  PRODUCTION 

*  LABOR  IN 

MILLIONS  OF  EMPLOYEES 

*  CAPITAL 

IN  BILLIONS  OF 

1982  $ 

*  LAND  IN 

MILLIONS  OF  ACRES 

TABLE  FCTRESKi.f)  FACTOR  DEMAND  BY 

SECTOR 

LABOR 

CAPITAL 

LAND 

LVSTK 

0.415354 

79.844060 

0.000000 

EXPCRP 

0.389786 

72.290527 

342.600000 

OTHCRP 

0.495860 

27.070413 

85.650000 

AGPROC 

3.584813 

90.828916 

0.000000 

AGINP 

0.887448 

80.391908 

0.000000 

INTMNF 

5.635211 

574.659325 

0.000000 

FDMNF 

9.907532 

291.267850 

0.000000 

TRDTRN 

18.648095 

516.104860 

0.000000 

SERVICE 

55.605901 

3871.778753 

0.000000 

RESTA 

1.070999 

639.835386 

0.000000 

*  NOTE,  CROPLAND  INCOME  IS  READ  AS  A  FRACTION  OF  CAPITAL  INCOME 
TABLE  FCTRY(i,f)  FACTOR  INCOME  BY  SECTOR 


LABOR 

CAPITAL 

LAND 

LVSTK 

U. 792657 

5.014664 

0.000000 

EXPCRP 

3.323859 

26.065318 

0.630000 

OTHCRP 

4.906739 

10.292489 

0.630000 

AGPROC 

65.741305 

32.884451 

0.000000 

AGINP 

20.248245 

13.974888 

0.000000 

INTMNF 

153.872100 

115.536383 

0.000000 

FDMNF 

263.093487 

49.561461 

0.000000 

47 


276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 


TRDTRN 

330.332692 

107.022255 

0.000000 

SERVICE 

1048.780635 

493.262171 

0.000000 

RESTA 

# 

11.908460 

146.610508 

0.000000 

*##  HOUSEHOLD 

PARAMETERS 

TABLE  CLES(i 

,hh)  HOUSEHOLD  CONSUMPTION 

SHARES 

HHTRN 

HHLAB 

HHCAP 

LVSTK 

0.003931 

0.003217 

0.002309 

EXPCRP 

0.000326 

0.000470 

0.000494 

OTHCRP 

0.006344 

0.005539 

0.004931 

AGPROC 

0.119976 

0.114408 

0.097157 

AGINP 

0.024630 

0.028957 

0.022995 

INTMNF 

0.010660 

0.011127 

0.010686 

FDMNF 

0.089590 

0.108451 

0.113151 

TRDTRN 

0.190825 

0.188008 

0.188198 

SERVICE 

0.516858 

0.502351 

0.518905 

RESTA 

0.036861 

0.037470 

0.041175 

*  NOTE,  MPS(HHCAP)  AND  HTAX(HHLAB)  ARE  RECOMPUTED  BELOW  FROM  VALUE  DATA 
TABLE  HHPAR(*,hh)  MISCELLANEOUS  HOUSEHOLu  PARAMETERS 


HHTRN 

HHLAB 

HHCAP 

THSH 

1.000000 

0.000000 

0.000000 

RHSH 

0.000000 

0.000000 

1.000000 

HTAX 

0.000000 

0.125960 

0.350000 

MPS 

0.000000 

0.061607 

0.174295 

*##  INSTITUTIONAL  PARAMETERS 


TABLE  SINTYH(HH,INS)  HOUSEHOLD  DISTRIBUTION  OF  INCOME 


LABR  ENT  PROP 


HHTRN 

HHLAB 

HHCAP 


0.000000 

1.000000 

0.000000 


0.000000 

0.000000 

1.000000 


0.000000 

0.000000 

1.000000 


*m  PRODUCTION  SECTOR  PARAMETERS 
TABLE  SECTRES(*,I)  SECTORAL  QUANTITIES  AND  PRICES 


LVSTK 

EXPCRP 

OTHCRP 

AGPROC 

AGINP 

XD 

77.115329 

71.772915 

26.543600 

391.145476 

265.279751 

E 

0.211590 

17.906935 

1.517508 

18.226606 

19.340732 

M 

0.653649 

0.116664 

2.782416 

26.562680 

23.669242 

PX 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

PE 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

PM 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

P 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

PD 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

PK 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

+ 

INTMNF 

FDMNF 

TRDTRN 

SERVICE 

RESTA 

XD 

691.752575 

817.593692 

785.067268 

2609.047268 

230.939170 

E 

46.868929 

108.003057 

37.123239 

107.252244 

5.449350 

M 

89.196218 

151.445719 

1.845284 

47.928267 

0.000000 

PX 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 
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345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 


PE 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

PM 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

P 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

PD 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

PK 

$ 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

NOTE,  TAXES 

ARE  MAGNITUDES  AND  RATES 

ARE  COMPUTED 

TABLE  TAXR(*, 

I )  SECTORAL 

TAXES 

LVSTK 

EXPCRP 

OTHCRP 

AGPROC 

AGINP 

I  TAX 

1.368870 

1.276232 

0.386298 

10.774114 

6.092757 

TE 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

TM 

0.008711 

0.003304 

0.099223 

2.746818 

0.062378 

+ 

INTMNF 

FDMNF 

TRDTRN 

SERVICE 

RESTA 

I  TAX 

26.965991 

9.696082 

75.726551 

87.474192 

30.415138 

TE 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

TM 

9 

1.601493 

4.028613 

0.049061 

0.000400 

0.000000 

TABLE  PARM(*, 

I)  MISCELLANEOUS  PARAMETERS 

LVSTK 

EXPCRP 

OTHCRP 

AGPROC 

AGINP 

DEPR 

0.108183 

0.108183 

0.108183 

0.095055 

0.084635 

DSTR 

0.000811 

-0.006647 

-0.004847 

-0.006132 

-0.008088 

GLES 

0.000671 

0.011649 

0.001061 

0.014240 

0.019479 

KISH 

0.012787 

0.011577 

0.004335 

0.014547 

0.012875 

+ 

INTMNF 

FDMNF 

TRDTRN 

SERVICE 

RESTA 

DEPR 

0.111027 

0.094561 

0.093504 

0.046913 

0.042354 

DSTR 

-0.006272 

-0.010781 

-0.003641 

-0.001304 

0.000000 

GLES 

0.019867 

0.152708 

0.044819 

0.725589 

0.009918 

KISH 

0.092033 

0.046648 

0.082656 

0.620072 

0.102470 

PARAMETER  SCALRES(*)  / 
*####  MACRO  TOTALS 

EXR  =  1.000000 

PINDEX  =  1.000000 

GDTOT  =  641.700000 

INVEST  =  447.300122 

*####  TAX 


SSTAX 

= 

269.535402 

ENTTAX 

= 

63.079602 

TOTHHTAX 

= 

409.335747 

*mm  TRANSFER 

REMIT 

= 

-1.250000 

GENT 

= 

47.530000 

HHT 

= 

396.249995 

FBOR 

*####  SAVE 

= 

-26.080000 

ENTSAV 

= 

20.030311 

HHSAV 

= 

153.907922 

GOVSAV 

=  - 

110.833017 

FSAV 

= 

1.029951 

TABLE 

ELASTICITY( 

M) 

SECTORAL 

ELASTICITIES 

LVSTK 

EXPCRP 

OTHCRP 

AGPROC 

AGINP 

RHOC 

4.0 

4.0 

4.0 

2.0 

0.75 

RHOT 

0.5 

4.0 

2.0 

2.0 

2.0 
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414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 


RHOE 

3.0 

3.0 

3.0 

+ 

INTMNF 

FDMNF 

TRDTRN 

SERVICE 

RESTA 

RHOC 

0.75 

0.9 

1.1 

0.2 

0.5 

RHOT 

RHOE 

2.0 

1.5 

2.0 

0.6 

0.6 

end  parameter  assignment  immmmmmmmmmimm 

*############  SPECIFY  PARAMETERS  FROM  TABLE  VALUES 


*##  PARAMETERS  FROM  SCALRES(*) 


ENTSAVO 

= 

SCALRES( 

"ENTSAV"); 

ENTTAXO 

= 

SCALRESC 

"ENTTAX"); 

EXRO 

= 

SCALRES( 

"EXR")  ; 

FBORO 

= 

SCALRES( 

"FBOR")  ; 

FSAVO 

= 

SCALRES( 

"FSAV")  ; 

GDTOTO 

= 

SCALRES( 

"GDTOT")  ; 

GENTO 

= 

SCALRES( 

"GENT"); 

GOVSAVO 

= 

SCALRESC 

"GOVSAV")  ; 

HHSAVO 

= 

SCALRES( 

"HHSAV")  ; 

HHTO 

= 

SCALRES( 

"HHT")  ; 

INVESTO 

= 

SCALRESC 

"INVEST")  ; 

PINDEXO 

= 

SCALRES( 

"P INDEX")  ; 

REMITO 

SCALRES( 

"REMIT")  ; 

SSTAXO 

= 

SCALRES( 

"SSTAX"); 

TOTHHTAXO 

= 

SCALRESC 

"TOTHHTAX") 

*##  OTHER  TABLE  VALUES  OF  PARAMETERS 
E0(i)  =  SECTRES("E",i)  ; 

ECONST(i)  =  SECTRES("E",i)  ; 

M0(i)  =  SECTRES("M",i)  ; 

PXO(i)  =  SECTRES("PX",i) 

PEO(i)  =  SECTRESC'PE",!) 

PMO(i)  =  SECTRES("PM",i) 

P0(i)  =  SECTRES("P",i)  ; 

PDO(i)  =  SECTRES<"PD",i)  ; 

PKO(i)  =  SECTRES<"PK",i)  ; 

XDO(i)  =  SECTRES("XD",i); 


HTAX(hh) 

MPSO(hh) 

RHSH(hh) 

THSH(hh) 


HHPAR("HTAX",hh) 

HHPAR("MPS",hh) 

HHPAR("RHSH",hh) 

HHPAR("THSH",hh) 


ITAX(i) 


TAXRC'ITAX", i )/(PX0( i )*XD0(i ))  ; 


RHOC(i)  =  (1/ELASTICITY("rhoc",i))  -  1  ; 

RHOE(i)  =  ELASTICITY("rhoe",i); 

RHOT(i)  =  (1/ELASTICITY("RHOT",i))  +  1; 


DEPR<i) 

DSTR<i) 

GLES(i) 

KISH(i) 


PARM("DEPR",i)  ; 
PARM("DSTR'',1)  ; 
PARM("GLES",i); 
PARM("KISH",i)  ; 


*##  NORMALIZE  SHARE  PARAMETERS  TO  CORRECT  FOR  ROUNDOFF  ERROR 

*  These  parameters  (cles,  imat,  kish,  and  gles)  can  be  read  in  as  values 

*  and  coverted  to  shares  here. 


SUMHHSH(hh)  =  SUM(i,  CLES(i,hh))  ; 
CLES(i,hh)  =  CLES(i,hh)/SUMHHSH(hh)  ; 
SUMIMSH(j)  =  SUM(i,  IMAT(i,j))  ; 
IMAT(i,j)  =  IMAT(i, j)/SUMIMSH(j)  ; 
SUMSH  =  SUM(i,  KISH<i))  ; 

KISH(i)  =  KISH(i)/SUMSH  ; 

SUMSH  =  SUM(i,  GLES(i))  ; 

GLES(i)  =  GLES(i)/SUMSH  ; 
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483 


484 

*mm  DEFINE 

;  INDEXES  BASED  ON  READ  IN  DATA 

485 

IAGN({) 

=  not  lAG(i); 

486 

IE(i) 

=  yes$E0(i); 

487 

lED(i) 

=  yes$RHOE(i); 

488 

lEDN(i) 

=  not  lED(i); 

489 

lEN(i) 

=  not  IE(i); 

490 

IM(i) 

=  yes$M0(i); 

491 

IMN(i) 

=  not  IM(i); 

492 

493 

*##  SPECIFY 

PARAMETERS  WHICH  DEPEND  ON  DEFINED  INDEX  IM  AND  IE 

494 

TM( imn) 

=  0.0  ; 

495 

TM(im) 

=  TAXR("TM",im)/(PMO(im)*MO(iin)  -  TAXRC'TM", im))  ; 

496 

TE( ien) 

=  0.0  ; 

497 

TE(ie) 

=  TAXR("TE",ie)/(PEO(ie)*EO(ie)  -  TAXRC'TE", ie))  ; 

498 

499 

*m  COMPUTE 

FROM  INITIAL  DATA 

500 

INTO(i) 

=  SUM(j,  10(i,j)*XDO(j)); 

501 

PVAO(i) 

=  PXO(i)  -  SUM(j,  IO(J,i)*PO(j))  -  ITAX(i)  ; 

502 

PWE0({) 

=  PE0(i)/((1+TE(i))*EXR0); 

503 

PWM(i) 

=  PM0(i)/((1+TM(i))*EXR0); 

504 

VARO(i) 

=  PVAO(i)  +  ITAX(i)  ; 

505 

XXDO(i) 

=  XDO(i)  -  E0(i)  ; 

506 

507 

*m  FOR  1982 

TMREAL  AND  TEREAL  ARE  DERIVE  FROM  TM  AND  TE 

508 

*M  FOR  OTHER  YEARS  READ  IN  TMREAL  AND  TEREAL 

509 

TMREAL(i) 

=  TM(i)*PWM(i)*EXRO  ; 

510 

TEREAL(i) 

=  TE(i)*PWE0(i)*EXR0  ; 

511 

NETSUBO 

=  SUM(i,  TE(i)*E0(i)*PWE0(i))*EXR0  ; 

512 

513 

515 

nnnnnnnnftnHnnnH**-  UMLIOKMIIUN  ur  KMKAMtItKb  rKQn  DATA  WnnnnnUUUUnUn 

516 

*##  ADJUST  FACTOR  INCOME  (CAPITAL)  FOR  FARM  LAND 

517 

YFLANDO(i) 

=  FCTRY(i,"land")  ; 

518 

FCTRY(i,"land")  =  FCTRY(i,"capital")nFLANDO(i)  ; 

519 

FCTRY(i, "capital")  =  FCTRY(i,"capital")*(1.0  -  YFLANDO(i))  ; 

520 

521 

*m  FACTOR  MARKET  PARAMETERS 

522 

FSO(f) 

=  SUM(i,FCTRESl(i,f))  ; 

523 

YFCTRO(f) 

=  SUM(i,  FCTRY(i,f))  ; 

524 

YFSECTO(i) 

=  SUM(f,  FCTRY(i,f))  ; 

525 

WFO(f) 

=  YFCTR0(f)/FS0(f)  ; 

526 

WFDIST(i,f)$FCTRES1(i,f)  =  (FCTRY(i,f)/FCTRESl(i,f))/WFO(f)  ; 

527 

WFDIST(i,f)$(FCTRES1(i,f)  EQ  0)  =  0.0  ; 

528 

529  *m  INSTITUTIONAL  AND  HOUSEHOLD  INCOME,  TAX  RATE,  AND  SAVING  RATE 

530  DEPRECIAO  =  SUM(i,  DEPR(i)*PKO(i)*FCTRESl(i, "capital")  )  ; 

531  SSTR  =  SSTAXO/YFCTROC'labor")  ; 

532  ETR  =  ENTTAXO/CYFCTROC'capital")  +  GENTO  -  DEPRECIAO)  ; 

533  ESR  =  ENTSAVO/(YFCTRO("capital")  -  ENTTAXO  +  GENTO  -  DEPRECIAO)  ; 

534  YINSTOC'labr")  =  (1.0  -  SSTR)*YFCTRO(" labor")  ; 

535  YINSTOC'ent")  =  YFCTROC'capital")  -  ENTSAVO  -  ENTTAXO  +  GENTO 

536  -  DEPRECIAO  ; 

537  YINSTOC'prop")  =  YFCTROC'land")  ; 

538 

539  *##  NOTE,  HOUSEHOLD  INCOME  IS  FROM  FACTORS  (YHVAO)  AND  TRANSFERS 

540  *##  WHERE,  YHVAO(hh)  =  SUM(ins,  SINTYH(hh, ins)*YINSTO(ins)) 

541  YHO(hh)  =  SUM(ins,  SINTYH(hh, ins)*YINSTO(ins)) 

542  +  REMITO*RHSH(hh)*EXRO  +  HHTO*THSH(hh)  ; 

543 

544  COMPUTE  HTAX(hhlab)  GIVEN  OTHER  HH  TAX  RATES  AND  TOTHHTAXO 

545  *##  WHERE,  TOTHHTAXO  =  SUM(hh,  HTAX(hh)*YHO(hh)) 

546  HTAXC'hhlab")  =  (TOTHHTAXO  -  HTAX("hhtrn")*YHO("hhtrn") 

547  -  HTAX("hhcap")*YHO("hhcap"))/YHO("hhlab"); 

548 

549  *m  COMPUTE  MPSO(hhcap)  GIVEN  OTHER  HH  SAVINGS  RATES  AND  HHSAVO 

550  *##  WHERE,  HHSAVO  =  SUM(hh,  MPS0(hh)*YH0(hh)*(1 .0  -  HTAX(hh))) 

551  MPSO("hhcap")=(HHSAVO  -  MPS0("hhtrn")*YH0("hhtrn")*(1 .0-HTAX("hhtrn")) 


51 


552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 


-  MPS0("hhlab")*YH0("hhlab")*(1.0-HTAX("hhlab"))) 
/(YH0("hhcap")*(1.0  -  HTAXC'hhcap")))  ; 


DISPLAY  WFDIST,  WFO,  FSO,  YFSECTO,  YFCTRO  ; 

DISPLAY  YINSTO,YHO,MPSO,HTAX,ETR,ESR,SSTR  ; 

*####  CALIBRATION  OF  SHIFT  AND  SHARE  PARAMETERS  #### 


*##  FOR  IMPORTS-DOMESTIC  COMPOSITE 

*##  get  delta  from  costmin,  xo  from  absorption,  ac  from  armington 


DELTA(i) 

DELTA(i) 

X0(i) 

RMD(i) 

AC(i)$im(i) 


=  <PM0(i)/PD0(i))*(M0(i)/XXD0(i))**(1+RHOC(i))  ; 

=  DELTA(i)/(1.0+DELTA(i))  ; 

=  (PD0(i)*XXD0(i)  +  (PM0(i)*M0(i))$im(i))/P0(i)  ; 

=  M0(i)/XXD0(i)  ; 

=  X0( i )/(DELTA( i )*M0( i )**( -RHOC( i ) ) 

+( 1 -DELTA( i ) )*XXD0( i )**( -RHOC( i ) ) )**( - 1/RHOC( i ) ) 


AC(i)$imn(i)  =  1.0  ; 
display  DELTA, AC, RMD  ; 


*##  FOR  EXPORTS 

*##  GET  GAMMA  FROM  ESUPPLY 

GAMMACie)  =  1/(1  +  PD0( ie)/PE0( ie)*(E0( ie)/XXD0( ie) )**(RHOT( ie)- 1 ) ); 
*m  GET  AT  FROM  CET 

AT(ie)  =  XD0(ie)/(GAMMA(ie)*E0(ie)**RHOT(ie)  +  (l-GAMMA(ie))* 

XXDO(ie)**RHOT(ie))**(1/RHOT(ie))  ; 
display  GAMMA, AT  ; 

*##  FOR  FACTOR  DEMAND 

*##  GET  ALPHA  FROM  PROFIT  MAX  (ALPHA  FOR  EACH  i  SHOULD  SUM  TO  1) 
ALPHA(i,f)  =  (WFDIST(i,f)*WF0(f)*FCTRES1(i,f))/YFSECT0(i)  ; 

DISPLAY  ALPHA  ; 


*##  get  AD  from  output  and  FDO  from  profitmax 
QD(i)  =  PROD(f,  FCTRES1(i,f)**ALPHA(i,f))  ; 

AD(i)  =  XD0(i)/QD(i); 

FDO(f)  =  SUM(i,(XD0(i)*PVA0(i)*ALPHA(i,f)/(WFDIST(i,f)* 

WF0(f)))$WFDIST(i,f))  ; 

DISPLAY  AD,QD,FD0  ; 

*##  SPECIFY  WEIGHTS  FOR  PRODUCER  PRICE  INDEX 
PWTS(i)  =  XD0(i)/SUM(j,  XDO(j))  ; 


*####  END  OF  CALIBRATION  #### 

DISPLAY  XDO,  XO,  XXDO  ; 

DISPLAY  PVA0,PD0,  PEO,  PWEO,  PMO,  PWM,  TM,  PWTS  ; 


VARIABLES 

variable  declaration 


*##  PRICE 

BLOCK 

EXR 

EXCHANGE  RATE 

($  PER  WORLD 

P(i) 

PRICE  OF  COMPOSITE  GOODS 

PD(i) 

DOMESTIC  PRICES 

PE(i) 

DOMESTIC  PRICE  OF  EXPORTS 

PINDEX 

GNP  DEFLATOR 

PK(i) 

PRICE  OF  CAPITAL  GOODS  BY  SECTOR 

OF  DESTINATION 

PM(i) 

DOMESTIC  PRICE  OF  IMPORTS 

PVA( i ) 

VALUE  ADDED  PRICE 

PWE(i) 

WORLD  PRICE  OF  EXPORTS 

PX(i) 

AVERAGE  OUTPUT  PRICE  ' 

*##  PRODUCTION  BLOCK 

E(i) 

EXPORTS 

(82 

BILL 

$) 

M(i) 

IMPORTS 

(82 

BILL 

S) 

X(i) 

COMPOSITE  GOODS  SUPPLY 

(82 

BILL 

$) 
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621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 


XD(i) 

DOMESTIC  OUTPUT 

(82  BILL 

S) 

XXD(i) 

DOMESTIC  SALES 

(82  BILL 

$) 

f  FACTOR  BLOCK 

FS(f) 

FACTOR  SUPPLY 

FDSC(i,f) 

FACTOR  DEMAND  BY  SECTOR 

WF(f) 

AVERAGE  FACTOR  PRICE 

YFCTR(f) 

FACTOR  INCOME 

(BILL  $) 

(  INCOME  AND  EXPENDITURE  BLOCK 

CD(i) 

FINAL  DEMAND  FOR  PRIVATE  CONSUMPTION 

(82  BILL 

$) 

DEPRECIA 

TOTAL  DEPRECIATION  EXPENDITURE 

(BILL  $) 

DK(i> 

VOLUME  OF  INVESTMENT  BY  SECTOR  OF  DESTINATION  (82  BILL  $) 

DST(i) 

INVENTORY  INVESTMENT  BY  SECTOR 

(82  BILL 

$) 

ENTSAV 

ENTERPRISE  SAVINGS 

(BILL  $) 

ENTTAX 

ENTERPRISE  TAX  REVENUE 

(BILL  $} 

FBOR 

NET  FOREIGN  BORROWING 

(BILL  WORLD 

S) 

FSAV 

NET  FOREIGN  SAVINGS 

(BILL  WORLD 

$) 

FXDINV 

FIXED  CAPITAL  INVESTMENT 

(BILL  $) 

GD(i) 

FINAL  DEMAND  FOR  GOVERNMENT  CONSUMPTION 

(82  BILL 

$) 

GDTOT 

TOTAL  VOLUME  OF  GOVERNMENT  CONSUMPTION 

(82  BILL 

$) 

GENT 

PAYMENTS  FROM  GOVT  TO  ENT 

(BILL  $) 

GOVSAV 

GOVERNMENT  SAVINGS 

(BILL  $) 

GR 

GOVERNMENT  REVENUE 

(BILL  $) 

HHSAV 

TOTAL  HOUSEHOLD  SAVINGS 

(BILL  $) 

HHT 

HOUSEHOLD  TRANSFERS 

(BILL  $) 

ID(i) 

FINAL  DEMAND  FOR  PRODUCTIVE  INVESTMENT 

(82  BILL 

$) 

INDTAX 

INDIRECT  TAX  REVENUE 

(BILL  $) 

INT(i) 

INTERMEDIATES  USES 

(82  BILL 

$) 

INVEST 

TOTAL  INVESTMENT 

(BILL  $) 

MPS(hh) 

MARGINAL  PROPENSITY  TO  SAVE  BY  HOUSEHOLD 

TYPE 

NETSUB 

EXPORT  DUTY  REVENUE 

(BILL  $) 

REMIT 

NET  REMITTANCES  FROM  ABROAD 

(BILL  WORLD 

S) 

SAVINGS 

TOTAL  SAVINGS 

(BILL  S) 

SSTAX 

SOCIAL  SECURITY  TAX  REVENUE 

(BILL  $) 

TARIFF 

TARIFF  REVENUE 

(BILL  $) 

TOTHHTAX 

HOUSEHOLD  TAX  REVENUE 

(BILL  $) 

YH(hh) 

HOUSEHOLD  INCOME 

(BILL  $) 

YINST(ins)  INSTITUTIONAL  INCOME 

(BILL  $) 

t  GNP  CALCULATIONS 

RGNP 

REAL  GNP 

(82  BILL 

$) 

GNPVA 

VALUE  ADDED  IN  MARKET  PRICES  GNP 

(BILL  $) 

"ttUMUUUttttttMUUUUUHU  VARIABLE  INITIALIZATION  ftUUUUUUUU»UUUUUUUItttMUUm 


*##  USE  INITIAL  VALUES  OF  VARIABLES  (FROM  PARAMETER  SPECIFICATION) 


EXR.L 

FBOR.L 

FSAV.L 

GDTOT.L 

GENT.L 

GOVSAV.L 

HHT.L 

INVEST.L 

PINDEX.L 

REMIT. L 


EXRO  ; 
FBORO  ; 
FSAVO  ; 
GDTOTO  ; 
GENTO  ; 
GOVSAVO 
HHTO  ; 
INVESTO 
PINDEXO 
REM I  TO  ; 


MPS.L(hh)  =  MPSO(hh)  ; 


PD. L(i) 
P.L(i) 
PX.L(i) 
PM.L(i) 

PE. L(i) 
XD.L(i) 
E.L(i) 
M.L(i) 


PDO(i) 
PO(i)  ; 
PXO( i ) 
PMO(i) 
PEO(i) 
XDO(i) 
EO(i)  ; 
MO(i)  ; 


FDSC.L(i,f)  =  FCTRESKi.f) 
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YFCTR.L(f)  =  SUM(i,  FCTRY(i,f))  ; 


*##  COMPUTE  INITIAL  VALUES  FOR  OTHER  VARIABLES 
*##  OUTPUT  AND  PRICE 
XXD.L(i)  =  XD.L(i)  -  E.L(i)  ; 

X.L(i)  =  (PD.L(i)*XXD.L(i)  +  (PM. L( i )*M.L( i ))$IM( i ))/P.L( i )  ; 
PK,L(i)  =  SUM(J,  P.L(j)*IMAT(j,i))  ; 

PWE.L(i)  =  PE.L(i)/((1.0  +  TE(i))*EXR.L)  ; 

PWSE(i)  =  PWE.L(i)  ; 

PVA.L(i)  =  PX.L(i)  -  SUM(J,  IO< j , i )*P.L( j ) )  -  ITAX(i)  ; 


*##  VALUE  ADDED  AND 
FS.L(f) 

WF.L(f) 

NETSUB.L 

TARIFF. L 

SSTAX.L 

INDTAX.L 

DEPRECIA.L 

ENTTAX.L 

ENTSAV.L 

YINST.LC'labr")  = 
YINST.LC'ent")  = 

YINST.LC'prop")  = 
YH.L(hh) 

TOTHHTAX.L 

HHSAV.L 


THE  FLOW  OF  FACTOR  INCOME 
SUM(i,  FDSC.L(i,f))  ; 

YFCTR.L(f)/FS.L(f)  ; 

SUM(ie,  TE(ie)*E.L(ie)*PWE.L(ie))*EXR.L  ; 

SUM(im,  PWM(im)*M.L(im)*TM(im))*EXR.L  ; 
SSTR*YFCTR.L("labor")  ; 

SUM(i,  ITAX(i)*PX.L(i)*XD.L(i))  ; 

SUM(i,  DEPR(i)*PK.L(i)*FDSC.L(i, "capital"))  ; 
ETR*(YFCTR.L("capital")  +  GENT.L  -  DEPRECIA.L)  ; 
ESR*<YFCTR.L("capital")  +  GENT.L 

-  (ENTTAX.L  +  DEPRECIA.L))  ; 

YFCTR.LC'labor")  -  SSTAX.L  ; 

YFCTR.LC'capital")  +  GENT.L 

-  (ENTSAV.L  +  ENTTAX.L  +  DEPRECIA.L)  ; 
YFCTR.LC'land")  ; 

SUM(ins,  SINTYH(hh,ins)*YINST.L(ins)) 

+  REMIT. L*RHSH(hh)*EXR.L  +  HHT.L*THSH(hh)  ; 
SUM(hh,  HTAX(hh)*YH.L(hh))  ; 

SUM(hh,  MPS.L(hh)*YH.L(hh)*(1.0  -  HTAX(hh)))  ; 


*##  FINAL  DEMAND 

INT.L(i)  =  SUM(j,IO(i,j)*XD.L(j))  ; 

CD.L(i)  =  SUM(hh,  CLES(i ,hh)*(1 .0  -  MPS.L(hh))*YH.L(hh) 

*(1.0  -  HTAX(hh)))/P.L(i)  ; 

GD.L(i)  =  GLES(i)*GDTOT.L  ; 

DST.L(i)  =  DSTR(i)*XD.L(i)  ; 

FXDINV.L  =  INVEST. L  -  SUM(i,  0ST.L( i )*P.L( i ) )  ; 

DK.L(i)  =  (KISH(i)*FXDINV.L)/PK.L(i)  ; 

ID.L(i)  =  SUM(j,  IMAT(i,j)*DK.L(j))  ; 

GR.L  =  TARIFF. L  -  NETSUB.L  +  INDTAX.L  +  TOTHHTAX.L  +  SSTAX.L 

+  ENTTAX.L  +  FBOR.L*EXR.L  ; 

SAVINGS. L  =  HHSAV.L  +  GOVSAV.L  +  DEPRECIA.L  +  FSAV.L*EXR.L  +  ENTSAV.L  ; 


*##  GNP 
GNPVA.L 
RGNP.L 


PINDEX.L 


SUM(i,  PVA.L(i)*XD.L(i))  +  INDTAX.L  +  TARIFF. L  -  NETSUB.L  ; 
SUM(i,  CD.L(i)  +  DST.L(i)  +  ID.L(i)  +  GD.L(i)) 

+  SUM(ie,  (1.0  -  TEREAL(ie))  *  E.L(ie)  ) 

-  SUM(itn,  (1.0  -  TMREAL(im))  *  M.L(im)  )  ; 

GNPVA.L/RGNP.L  ; 


*##  ALTERNATIVELY,  SET  PINDEX  TO  THE  PRODUCER  PRICE  INDEX 
*  PINDEX.L  =  SUM(i,  pwts(i)*PX(i))  ; 


DISPLAY  YFCTR.L,YINST.L,YH.L, GNPVA.L, RGNP.L, PINDEX.L  ; 
DISPLAY  INT.L,CD.L,GD.L,ID.L,DST.L,DK.L  ; 

end  variable  specification 

*####  TO  CHECK  FOR  DATA  CONSISTENCY,  DISPLAY  INITIAL  SAM 

social  accounting  matrix 


SAMC'COMMDTY", "ACTIVITY") 
SAMC'COMMDTY", "HOUSEHOLDS")  = 
SAMC'COMMDTY", "KACCOUNT") 

SAM( "COMMDT Y" , "GOVT " ) 

SAM( "ACTIVITY", "WORLD") 
SAM("ACTIVITY","COMMDTY") 


SUM(i,(P.L(i)*INT.L(i)))  ; 
SUM(i,(P.L(i)*CD.L(i)))  ; 

SUM( i , (P . L( i )*(DST . L( i )+ID . L( i ) ) ) )  ; 
SUM(i,(P.L(i)*GD.L(i)))  ; 

SUM(  i ,  ( (EXR .  L*PWE  .L(  i )  )*E .  L(  i ) ) )  ; 
SUM(i,  (PX.L(i)*XD.L(i)) 
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SAM("ACTIVITY","GOVT") 
SAMC'VALUAD", "ACTIVITY") 

SAM( " I NSTTNS" , "VALUAD" ) 
SAM("INSTTNS","GOVT") 

SAM( "HOUSEHOLDS" , " I NSTTNS" )= 
SAM ( "HOUSEHOLDS" , "GOVT" ) 
SAM("KACCOUNT","INSTTNS") 
SAMC'KACCOUNT" , "HOUSEHOLDS" ) 
SAMC'KACCOUNT", "GOVT") 

SAM( "GOVT" , "COMMDTY" ) 

SAM( "GOVT", "ACTIVITY") 
SAMC'GOVT", "VALUAD") 
SAM("GOVT","INSTTNS") 

SAM ( "GOVT" , " HOUSE  HOLDS" ) 

SAM( "WORLD" , "COMMDTY" ) 

SAM( "WORLD", "HOUSEHOLDS") 
SAM("WORLD","GOVT") 

SAM( "WORLD" , "KACCOUNT" ) 

SAM( "TOTAL", "COMMDTY") 
SAMC'TOTAL", "ACTIVITY") 
SAMC'TOTAL", "VALUAD") 
SAMC'TOTAL", "INSTTNS") 
SAMC'TOTAL", "HOUSEHOLDS") 
SAMC'TOTAL" , "KACCOUNT" ) 
SAMC'TOTAL", "GOVT") 
SAMC'TOTAL", "WORLD") 
SAM(isam3, "TOTAL") 


-  (PE.L(i)*E.L(i))  )  ; 

=  NETSUB.L  ; 

=  SUM(f,  YFCTR.L(f))  ; 

=  SUM(f,YFCTR.L(f))  -  SSTAX.L  ; 

=  GENT.L  ; 

SUM((ins,hh),SINTYH(hh,ins)*YINST.L(ins)); 
=  HHT.L  ; 

=  ENTSAV.L  +  DEPRECIA.L  ; 

=  HHSAV.L  ; 

=  GOVSAV.L  ; 

=  TARIFF. L  ; 

=  INDTAX.L  ; 

=  SSTAX.L  ; 

=  ENTTAX.L  ; 

=  TOTHHTAX.L  ; 

=  SUM(i,((PWM(i)*EXR.L)*M.L(i)))  ; 

=  -  REMIT. L*EXR.L  ; 

=  -  FBOR.L*EXR.L  ; 

=  -  FSAV.L*EXR.L  ; 

=  SUM(isam2,SAM(isam2, "COMMDTY"))  ; 

=  SUM(isatn2,SAM(isam2, "ACTIVITY"))  ; 

=  SUM(isam2,SAM(isam2, "VALUAD"))  ; 

=  SUM(isam2,SAM(isam2," INSTTNS"))  ; 

=  SUM(isam2,SAM(isam2, "HOUSEHOLDS"))  ; 

=  SUM(isam2,SAM(isam2, "KACCOUNT"))  ; 

=  SUM(isani2,SAM(isam2,"GOVT"))  ; 

=  SUM(isam2,SAM<isain2, "WORLD"))  ; 

=  SUM(isain2,SAM<isam3,isam2))  ; 


OPTION  DECIMALS=2  ; 
DISPLAY  SAM  ; 

OPTION  DECIMALS=3  ; 


EQUATIONS 


EQUATION  DECLARATION 


*M  PRICE  BLOCK 
PMDEF(i) 

PEDEF(i) 
ABSORPTIONS  ) 
SALES(i) 

ACTP(i) 

PKDEF(i) 

PINDEXDEF 

*m  PRODUCTION  BLOCK 
ACTIVITY(i) 
PROFITMAX(i,f) 
INTEQ(i) 

CET(i) 

CET2(i) 

ESUPPLY(i) 

EDEMAND(i) 

ARMINGTON(i) 

ARMINGTON2(i) 

COSTMIN(i) 

*##  INCOME  BLOCK 
YFCTREQ(f) 

LABORY 

PROPY 

ENTY 

HHY(hh) 

TARIFFDEF 

INDTAXDEF 

NETSUBDEF 

TAXSS 

ETAX 

HHTAXDEF 


DEFINITION  OF  DOMESTIC  IMPORT  PRICES 
DEFINITION  OF  DOMESTIC  EXPORT  PRICES 
VALUE  OF  DOMESTIC  SALES 
VALUE  OF  DOMESTIC  OUTPUT 
DEFINITION  OF  ACTIVITY  PRICES 
DEFINITION  OF  CAPITAL  GOODS  PRICE 
DEFINITION  OF  GENERAL  PRICE  LEVEL 

PRODUCTION  FUNCTION 

FIRST  ORDER  CONDITIONS  FOR  PROFIT  MAXIMUM 
TOTAL  INTERMEDIATE  USES 
CET  FUNCTION 

DOMESTIC  SALES  FOR  NONTRADED  SECTORS 

EXPORT  SUPPLY 

EXPORT  DEMAND  FUNCTIONS 

COMPOSITE  GOOD  AGGREGATION  FUNCTION 

COMPOSITE  GOOD  AGG.  FOR  NONTRADED  SECTORS 

F.O.C.  FOR  COST  MINIMIZATION  OF  COMPOSITE  GOOD 

FACTOR  INCOME 
LABOR  INCOME 
PROPERTY  INCOME 
ENTERPRISE  INCOME 
HOUSEHOLD  INCOME 
TARIFF  REVENUE 

INDIRECT  TAXES  ON  DOMESTIC  PRODUCTION 
EXPORT  SUBSIDIES 
SOCIAL  SECURITY  TAX 
ENTERPRISE  TAX 

TOTAL  HOUSEHOLD  TAXES  COLLECTED  BY  GOVT. 
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DEPREQ 

ESAVE 

HHSAVEQ 

GREQ 

TOTSAV 


DEPRECIATION  EXPENDITURE 
ENTERPRISE  SAVINGS 
HOUSEHOLD  SAVINGS 
GOVERNMENT  REVENUE 
TOTAL  SAVINGS 


*##  EXPENDITURE  BLOCK 


CDEQ(i) 

GDEQI(i) 

GRUSE 

DSTEQCi) 

FIXEDINV 

PROOINV(i) 

lEQ(i) 

*##  MARKET  CLEARING 
EQUIL(i) 
FMEQUIL(f) 

CAEQ 

*  WALRAS 


PRIVATE  CONSUMPTION  BEHAVIOR 
GOVT  CONSUMPTION  OF  COMMODITIES 
GOVERNMENT  SAVINGS 
INVENTORY  INVESTMENT 
FIXED  INVESTMENT  NET  OF  INVENTORY 
INVESTMENT  BY  SECTOR  OF  DESTINATION 
INVESTMENT  BY  SECTOR  OF  ORIGIN 

GOODS  MARKET  EQUILIBRIUM 
FACTOR  MARKET  EQUILIBRIUM 
CURRENT  ACCOUNT  BALANCE  (BILL  DOLLARS) 
SAVINGS  INVESTMENT  EQUILIBRIUM 


*##  The  WALRAS  equation  is  redundant, 

*##  given  that  the  model  satisfies  Walras'  Law. 

*##  In  this  case,  we  drop  the  Savings- Investment  balance  equation. 

*##  GROSS  NATIONAL  PRODUCT 

GNPY  TOTAL  VALUE  ADDED  INCLUDING  INDTAX 

GNPR  REAL  GNP 


*########################  equation  assignment 

*M  PRICE  BLOCK 


PMDEF(im).. 

PM(im> 

=E=  PWM(im)*EXR*(1  +  TM(im))  ; 

PEDEF(ie).. 

PE(ie) 

=E=  PWE(ie)*(1  +  TE(ie))*EXR  ; 

ABSORPTION(i). 

.  P(i)*X(i)  =E=  PD(i)*XXD(i)  +  (PM(i)*M(i))$im(i)  ; 

SALESCi).. 

PX(i)*XD(i)  =E=  PD(i)*XXD(i)  +  (PE( i )*E( i ) )$ie(  i )  ; 

ACTP(i).. 

PVA(i) 

=E=  PX(i)*(1.0-ITAX(i))  -  SUM( j , IO( j , i )*P( j ) ) 

PKDEF(i).. 

PK(i) 

=E=  SUM(J,  P(j)*IMAT<j,i))  ; 

PINDEXDEF.. 

PINDEX 

=E=  GNPVA/RGNP  ; 

*##  PRODUCTION 

BLOCK 

ACTIVITY(i).. 

XD(i) 

=E=  AD(i)*PROO(f$ALPHA(i,f), 
FDSC(i,f)**ALPHA(i,f))  ; 

PROFITMAX(i,f)$WFDIST(i 

,f)..  WF(f)*WFDIST(i,f)*FDSC(i,f)  =E= 

XD(i)*PVA(i)*ALPHA(i,f)  ; 

INTEQ(i).. 

INT(i) 

=E=  SUM(J,  IO(i,j)*XD(j)); 

CET(ie).. 

XD(ie)  =E=  AT(ie)*(GAMMA(ie)*E(ie)**RHOT(ie)  + 

( 1 -GAMMA( ie) )*XXD( i e)**RHOT( ie) )**< 1/RHOT( ie) )  ; 

CET2(ien).. 

XD(ien) 

=E=  XXD(ien)  ; 

ESUPPLY(ie).. 

E(ie) 

=E=  XXD(ie)*(PE(ie)/PD(ie)*(1  -  GAMMA(ie)) 
/GAMMA<‘ie))**(1/(RHOT(ie)-1))  ; 

EDEMAND(ied).. 

E(ied) 

=E=  ECONST(ied)*((PWE(ied)/PWSE(ied)) 

**(-RHOE(ied)))  ; 

ARMINGTON(im). 

.  X(im) 

=E=  AC(im)*(DELTA(im)*M(im)**(-RHOC(im))  + 
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(1  -  DELTA(im))*XXD(im)**(-RHOC(im)>)**(-1/RHOC(im))  ; 

ARMINGTON2(imn)..  X(imn)  =E=  XXD(imn)  ; 

COSTMIN(im)..  M( im)/XXD( im)  =E=  (PD( im)/PM( im)*DELTA( im)/ 

(1  -  DELTA(im)))**(1/(1  +  RHOC(im)))  ; 

*##  INCOME  BLOCK 


YFCTREQ(f),. 

YFCTR(f)  =E=  SUM(i,  WF(f )*WFDIST( i , f )*FDSC( i , f )); 

LABORY.. 

YINSTC'labr")  =E=  YFCTRC'labor")  -  SSTAX  ; 

PROPY.. 

Y INST ("prop")  =E=  YFCTRC'land")  ; 

ENTY., 

YINSTC'ent")  =E=  YFCTRC'capital")  +  GENT 

-  (ENTSAV  +  ENTTAX  +  DEPRECIA)  ; 

HHY(hh).. 

YH(hh)  =E=  SUMd'ns,  SINTYH(hh, ins)*YINST(ins)) 

+  REMIT*RHSH(hh)*EXR  +  HHT*THSH(hh)  ; 

TARIFFDEF.. 

TARIFF  =E=  SUMd'm,  TMdm)*Mdm)*PUM( iin))*EXR  ; 

INDTAXDEF.. 

INDTAX  =E=  SUM(i,  ITAXd )*PX( i )*XD(i ) )  ; 

NETSUBDEF.. 

NETSUB  =E=  SUMde,  TE(ie)*E(ie)*PWEde))*EXR  ; 

TAXSS.. 

SSTAX  =E=  SSTR*YFCTR(" labor")  ; 

ETAX.. 

ENTTAX  =E=  ETR*(YFCTR("CAPITAL")  -  DEPRECIA  +  GENT)  ; 

HHTAXDEF.. 

TOTHHTAX  =E=  SUM(hh,  HTAX(hh)*YH(hh))  ; 

DEPREQ.. 

DEPRECIA  =E=  SUMd,  DEPRd  )*PKd  )*FDSC(  I  ,"capi  tal"))  ; 

ESAVE.. 

ENTSAV  =E=  ESR*(YFCTR("CAPITAL")+GENT-ENTTAX-DEPRECIA); 

HHSAVEQ.. 

HHSAV  =E=  SUM(hh,  MPS(hh)*YH(hh)*(1  -  HTAX(hh)))  ; 

GREQ.. 

GR  =E=  TARIFF  -  NETSUB  +  INDTAX  +TOTHHTAX  + 

SSTAX  +  ENTTAX  +  FBOR*EXR  ; 

TOTSAV..  SAVINGS  =E=  HHSAV  +  GOVSAV  +  DEPRECIA  +  FSAV*EXR  +  ENTSAV  ; 


*##  EXPENDITURE 

BLOCK 

CDEQd).. 

P(i)*CDd)  =E=  SUM(hh,  CLES(i,hh)*(1-MPS(hh))*YH(hh) 

*(1-HTAX(hh)))  ; 

GDEQId).. 

GDd)  =E=  GLESd)*GDTOT  ; 

GRUSE.. 

GR  =E=  SUM(i,  P(i)*GDd))  +  GOVSAV  +  GENT  +  HHT  ; 

DSTEQd).. 

DSTd)  =E=  DSTR(i)*XDd)  ; 

FIXEDINV.. 

FXDINV  =E=  INVEST  -  SUMd,  DSTd)*P(i))  ; 

PRODINVd).. 

PK(i)*DKd)  =E=  KISHd)*FXDINV  ; 

lEQd),. 

ID(i)  =E=  SUM(J,  IMATd,j)*DK(j)); 

*##  MARKET  CLEARING 


EQUIL(i).. 

Xd)  =E=  INTd)  +  CDd)  +  GDd)  +  IDd)  +  DSTd)  ; 

FMEQUIL(f).. 

SUMd,  FDSCd,f))  =E=  FS(f)  ; 

CAEQ.. 

SUMdm,  PWMdm)*M(im))  =E=  SUMde,  PWEde)*Ede)) 

+  FSAV  +  REMIT  +  FBOR  ; 
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*WALRAS..  SAVINGS  =E=  INVEST  ; 

*##  GROSS  NATIONAL  PRODUCT 

GNPY..  GNPVA  =E=  SUM( i ,PVA<i )* *XD( i ))  +  INDTAX  +  TARIFF  -  NETSUB  ; 

GNPR..  RGNP  =E=  SUM(i,CD(i)  +  DST(i)  +  ID(i)  +  GD(i)) 

+  SUM(ie,(1.0  -  TEREAL(ie))  *  E(ie)  ) 

-  SUM(im,(1.0  -  TMREAL(im))  *  M(itn)  )  ; 

*####  ADDITIONAL  RESTRICTIONS  CORRESPONDING  TO  EQUATIONS 

*#  PMDEF,  PEDEF,  EDEMAND,  ESUPPLY,  COSTMIN,  AND  PROFITMAX 

*#  FOR  NON-TRADED  SECTORS  AND  SECTORS  WITH  FIXED  WORLD  EXPORT  PRICES 

PM.FX(imn)  =  PMO(imn)  ; 

PE.FX(ien)  =  PEO(ien)  ; 

PWE.FX(iedn)  =  PWE.L(iedn)  ; 

E.FXCien)  =  0; 

M.FX(itnn)  =  0; 

FDSC.FX(i,f)$(WFDIST(i,f)  EQ  0)  =  0  ; 

*####  VARIABLE  BOUNDS 

*These  are  included  to  improve  algorithm  performance.  They  are  not 
*necessary  for  model  specification. 

P.LO(i)  =  0.0  ;  PD.LO(i)  =  0.0  ;  PM.LO(im)  =  0.0  ; 

PK.LO(i)  =  0.0  ;  PX.LO(i)  =  0.0  ;  X.LO(i)  =  0.0  ; 

XD.LO(i)  =  0.0  ;  M.LO(im)  =  0.0  ;  XXD.LO(i)  =  0.0  ; 

WF.LO(f)  =  0.0  ;  INT.LO(i)  =  0.0  ;  E.LO(ie)  =  0.0  ; 

FDSC.LO(i,f)$(FDSC.L(i,f)  NE  0)  =  0.0  ; 

PVA.LO(i)  =  0.0  ; 

model  closure  utmmmmiminmummmumM 


*##  FOREIGN  EXCHANGE  MARKET  CLOSURE 

*  In  this  version,  the  balance  of  trade  (current  account  balance)  is 

*  fixed  exogenously  and  the  exchange  rate  is  the  equilibrating  variable. 


*  EXR.FX 
FSAV.FX 
REMIT. FX 
FBOR.FX 


=  EXR.L  ; 

=  FSAV.L  ; 

=  REMIT. L  ; 
=  FBOR.L  ; 


*##  INVESTMENT-SAVINGS  CLOSURE 

*  This  version  specifies  neoclassical  closure.  Aggregate  investment  is 

*  determined  by  aggregate  savings;  the  model  is  savings  driven. 


MPS.FX(hh)  =  MPS.L(hh)  ; 
*  INVEST. FX  =  INVEST.L  ; 


*m  EXOGENOUS  GOVT  EXPENDITURE 
*##  AND  GOVT  CLOSURE  RULE 

*  Real  government  spending  (GDTOT)  is  fixed  exogenously.  The  government 

*  deficit  (GOVSAV)  is  determined  residual ly. 


GDTOT. FX 

GENT.FX 

HHT.FX 

*  GOVSAV. FX 


=  GDTOT. L  ; 

=  GENT.L  ; 

=  HHT.L  ; 

=  GOVSAV. L  ; 


*##  FACTOR  MARKET  CLOSURE 

*  In  this  version,  all  factors,  including  capital,  are  mobile. 

*  Commented  equations  allow  a  version  with  fixed  wage  for  labor. 

*  The  model  then  solves  for  aggregate  employment. 

FS.FX(f)  =  FS.L(f)  ; 

*  WF.FXC'labor")  =  WF.LC'labor")  ; 

*  FS.LOC'labor")  =  -inf  ; 

*  FS.UPC'labor")  =  +inf  ; 
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*##  NUMERAIRE  PRICE  INDEX 
*In  this  case,  the  GNP  deflator. 

PINDEX.FX  =  PINDEX.L  ; 

*M»M»mUltU»UMUHU»U»»UUMMU»H  END  OF  MODEL 
OPTIONS  ITERLIM=1000,LIMROW=0,LIMCOL=0,SOLPRINT=OFF; 
MODEL  US82  /ALL/  ; 

SOLVE  US82  MAXIMIZING  RGNP  USING  NLP; 


solution  reports  and  output 
*mm  three  report  and  output  blocks 
*##  1)  tables  of  results  for  variables  in  MODEL 

*##  2)  TABLES  OF  RESULTS  FOR  DISPLAY 

*##  3)  TABLES  OF  RESULTS  FOR  RESTART  SOLUTION  RATIO  TABLES 
USE  CONTEXT  AND  SOFFTEXT  TO  TURN  OFF  REPORTS  NOT  WANTED. 

*####  1)  TABLES  OF  RESULTS  FOR  VARIABLES  IN  THE  MODEL 
*##  MACRO  AGGREGATE  RESULTS 


SCALRESC'EXR") 

EXR.L  ; 

SCALRESC'PINDEX") 

= 

PINDEX.L  ; 

SCALRESC'RGNP") 

= 

RGNP.L  ; 

SCALRESC'GNPVA") 

S 

GNPVA.L  ; 

SCALRESC'INVEST") 

s 

INVEST. L  ; 

SCALRESC'FXDINV") 

= 

FXDINV.L  ; 

SCALRESC'GDTOT") 

= 

GDTOT.L  ; 

SCALRESC'GR") 

s 

GR.L  ; 

SCALRESC'SSTAX") 

= 

SSTAX.L  ; 

SCALRESC'TARIFF") 

= 

TARIFF. L  ; 

SCALRESC'INDTAX") 

= 

INDTAX.L  ; 

SCALRESC'ENTTAX") 

= 

ENTTAX.L  ; 

SCALRESC'TOTHHTAX") 

= 

TOTHHTAX.L 

SCALRESC'NETSUB") 

= 

NETSUB.L  ; 

SCALRESC'REMIT") 

REMIT. L  ; 

SCALRESC'GENT") 

GENT.L  ; 

SCALRESC'HHT") 

= 

HHT.L  ; 

SCALRESC'FBOR") 

s 

FBOR.L  ; 

SCALRESC'SAVINGS") 

= 

SAVINGS. L 

SCALRESC'ENTSAV") 

= 

ENTSAV.L  ; 

SCALRESC'DEPRECIA") 

= 

DEPRECIA.L 

SCALRESC'HHSAV") 

= 

HHSAV.L  ; 

SCALRESC'GOVSAV") 

= 

GOVSAV.L  ; 

SCALRESC'FSAV") 

r 

FSAV.L  ; 

*##  FACTOR  OF  PRODUCTION  RESULTS 
FCTRESl(i,f)  =  FDSC.L(i,f)  ; 

*##  TABLE  FCTRES2(*,f)  MISCELLANEOUS  FACTOR  VARIABLE  RESULTS  ; 

SET  IFVAR  /WF,  FS,  YFCTR/  ; 

PARAMETER  FCTRES2( i fvar, f )  MISCELLANEOUS  FACTOR  VARIABLE  RESULTS  ; 
FCTRES2("WF",f)  =  WF.L<f)  ; 

FCTRES2("FS",f)  =  FS.L(f)  ; 

FCTRES2("YFCTR",f)  =  YFCTR. L(f)  ; 

*##  SECTORAL  PRICE  AND  QUANTITY  RESULTS 
SECTRES("P",i)  =  P.L(i)  ; 
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SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 

SECTRESC 


'PD",i) 

'PE",i) 

'PK",i) 

'PM'',i) 

'PVA",i) 

•PWE",i) 

'PX",i) 

'XD",i) 

'XXD",i) 

'E",i) 

'INT'',i) 

'CD",i) 

'GD",i) 

'DST",i) 

'DK",i) 


PD. L(i)  ; 

PE. L(i)  ; 
PK.L(i>  ; 
PM.L<i)  ; 
PVA.L(i)  ; 
PWE.L(i)  ; 
PX.L(i)  ; 

X.L(i)  ; 
XD.L(i)  ; 
XXD.L(i)  ; 
E.L(i)  ; 
M.L(i)  ; 
INT.L(i)  ; 
CD.L(i)  ; 
GD.L(i)  ; 
ID.L(i)  ; 
DST.L(i)  ; 
DK.L(i)  ; 


INSTITUTIONAL  RESULTS 

*##  TABLE  INSRES(* *,ins)  INSTITUTIONAL  INCOME  RESULTS 
SET  INSVAR  /YINST/  ; 

PARAMETER  INSRES( insvar, ins)  INSTITUTIONAL  INCOME  RESULTS  ; 
INSRES("YINST",ins)  =  YINST. L(ins)  ; 


*##  HOUSEHOLD  RESULTS 

*##  TABLE  HHRES(*,hh)  MISCELLANEOUS  HOUSEHOLD  RESULTS 
SET  HHVAR  /MPS,  YH/  ; 

PARAMETER  HHRES(hhvar,hh)  MISCELLANEOUS  HOUSEHOLD  RESULTS  ; 
HHRES("MPS",hh)  =  MPS.L(hh)  ; 

HHRES("YH",hh)  =  YH,L(hh)  ; 


option  decimals  =  6  ; 

DISPLAY  SCALRES,  FCTRES1,  FCTRES2,  SECTRES,  INSRES,  HHRES  ; 
option  decimals  =  3  ; 


*####  2)  TABLES  OF  RESULTS  FOR  DISPLAY 

*##  DEFINE  SETS  FOR  SOLUTION  REPORT  TABLES  #### 

*  For  GNP  TABulations 

SET  ignp  rows  /consmpt, Investment, Inventory, Government, 

Exports, Imports, GNP  / 
ignpKignp)  /gnp/ 

ignp2(ignp) 

jgnp  columns  /nominal 

real 

nomshare 
real share 
deflator  /  ; 

ignp2(ignp)  =  NOT  ignpl(ignp)  ; 

PARAMETER  gnptab< ignp, jgnp)  GNP  ACCOUNTS  ; 

PARAMETER  gnptab2( i , jgnp)  SECTORAL  VALUE  ADDED  ; 

PARAMETER  sumgnp(jgnp)  AGGREGATE  GNP; 

PARAMETER  gnpratio  GNP  value  added  correction  factor  ; 

*  for  ABSORB 

set  rar  rows  /  ag,non-ag, total  / 

rac  columns  /  GNP,C, I ,G,E,M, NETE-M,T-G, ABSORB  / 

PARAMETER  ABSORB (rar, rac)  ABSORPTJON  TABLE  (REAL)  ; 

*  for  FACTORS 

set  rf  /  yf,yfcap, profit, rental, rdist,wdcap, 

yf labor, wdlabor,yf land, wdland, pint, intinp  / 

PARAMETER  FACTORS( i , rf )  FACTOR  RETURNS  DISTRIBUTIVE  PARAMETERS  ; 
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*  for  COEFFS  (shift  and  share  coefficients) 
set  rc  /  ALPHAL,ALPHAC,ALPHAP,RMD, DELTA, AD  / 

PARAMETER  COEFFS(i,rc)  SHI  FT, SHARE  AND  DISTRIBUTIVE  PARAMETERS  ; 

*##  DEFINE  EXTRA  PARAMETERS  FOR  SOLUTION  REPORT  TABLES  #### 

PARAMETERS 


agtotfd 

agricultural  terms  of  trade 

agtotva 

ag  terms  of  trade  value  added 

agtote 

ag  terms  of  trade  world  export  price 

agtotm 

ag  terms  of  trade  world  import  price 

avgprof i t 

average  profit  rate 

avgwf 

average  factor  price  current  weights 

bot 

nominal  balance  of  trade 

botr 

real  balance  of  trade 

col ind 

cost  of  living  index 

esum 

real  exports 

exrind 

real  exchange  rate  index 

holdl 

holds  value  for  end  calculation 

indhold 

holds  value  for  end  calculation 

i  nt i np( i ) 

intermediate  input  demand  by  sector  i 

intinpn( i ) 

nominal  intermediate  input  demand  by  sector  i 

ms  urn 

real  imports 

ncdtot 

nominal  cdtot 

nex 

nominal  exports 

nim 

nominal  imports 

ngdtot 

nominal  govt  demand 

ngnp 

nominal  GNP 

pnag i nd 

nonag  price  index 

pag i nd 

ag  price  index 

pm  ind 

domestic  import  price  index 

peind 

domestic  export  price  index 

pweind 

world  export  price  index 

pwmind 

world  import  price  index 

psav 

private  savings 

pxind 

producer  price  index 

pdind 

domestic  supply  price  index 

pind 

composite  good  price  index 

pint(i) 

cost  per  unit  of  intermediate  inputs 

prof i t ( i ) 

profit  rate 

rdist(i ) 

capital  rental  proportionality  factor 

rental ( i ) 

rental  rate  of  capital 

shconsump 

consumption  share  of  nominal  gnp 

sh invest 

investment  share  of  nominal  gnp 

shex 

export  share  of  nominal  gnp 

shim 

import  share  of  nominal  gnp 

shgdtot 

govt  consumption  share  of  nominal  gnp 

shbot 

balance  of  trade  share  of  nominal  gnp 

shfsav 

foreign  saving  share  of  investment 

shgsav 

government  saving  share  of  investment 

shpsav 

private  saving  share  of  investment 

valaddC i ) 

value  added  at  market  price 

sectory( i ) 

value  added  at  factor  cost 

utd( i } 

base  year  wt  domestic  in  total  domestic  sales 

utm( i ) 

base  year  wt  of  imports  in  total  trade 

wtx(i ) 

base  year  wt  of  exports  in  total  trade 

yfd'.f) 

t 

factor  income 

*####  SPECIFY  EXTRA  PARAMETERS  FOR  SOLUTION  REPORT  TABLES  #### 

*##  AG  TERMS  OF  TRADE  ## 

pagind  =  SUM( iag,px. l( iag)*xd. l( iag))/SUM( iag,xd. l( iag)); 
pnagind  =  SUM( iagn,px. l( iagn)*xd. l( iagn))/SUM( iagn,xd. l( iagn)); 
agtotfd  =  100*pagind/pnagind; 

pagind  =  SUM( iag,pva. I ( iag)*xd. U iag))/SUM( iag,xd. l( iag)); 

pnagind  =  SUM( iagn,pva. l( iagn)*xd. U iagn))/SUM( iagn,xd. l(iagn)); 
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agtotva  =  100*pagind/p)nagind; 


pagind  =  SUM( iag.pwe. l( iag)*e. l( iag))/SUM(iag,e. l( iag)); 

pnagind  =  SUM(iagn,pwe. l(iagn)*e. l(iagn))/SUM(iagn,e. l(iagn)); 

agtote  =  1 00*pagind/ pnagind; 

pagind  =  SUM( iag,pwnn( iag)*m. U iag))/SUM(iag,m. U iag)); 

pnagind  =  SUM(  iagn,pwni(  iagn)*ni.  l(  iagn))/SUM(  iagn.m.  l(  iagn)); 

agtotm  =  1 00*pagind/ pnagind; 


DISPLAY  agtotfd,  agtotva,  agtotm,  agtote  ; 


*##  MACRO  BALANCES  ## 


ncdtot 

ngdtot 

ngnp 

nex 

nim 

txit 

botr 

esum 

msum 

psav 

shbot 

shconsump 

shex 

shfsav 

shim 

sh invest 

shgdtot 

shgsav 

shpsav 


=  SUM<i,cd.Ui)*p.l(i)); 

=  SUM<i,gd.l(i)*p.l(i)); 

=  SUM(i,p.l(i)*(cd.l(i)  +  dst.Ui)  +  id.l(i)  +  gd.l(i)) 
+  pe. L( i )*e. l< i )  -  pwm(i>*exr.l*m.l(i)); 

=  SUM( ie,e. l( ie)*exr. l*pwe. l( ie)); 

=  SL)M(  im,m.  l(  im)*exr.  l*pwm(  im)); 

=  nex-nim; 

=  SUM(i,e.l<i))  -  SUM( i ,m. l( i )); 

=  SUM(i,e.l(i)); 

=  SUM(i,m.Ui)); 

=  invest. I  -  f sav. I  -  govsav.l; 

=  100*bot/gnpva. 1; 

=  100*ncdtot/gnpva. 1; 

=  100*nex/gnpva. 1; 

=  100*fsav. l/invest. 1; 

=  100*nim/gnpva. 1; 

=  100*invest. l/gnpva. 1; 

=  1 00*ngdtot/gnpva . I ; 

=  100*govsav. l/invest. 1; 

=  1 00*psav/ invest. I ; 


D 1  SPLAY  bot , bot r , nex, esum, ni m, msum, shconsump, sh i nvest , 
shgdtot , shex , sh i m, shbot , shfsav, shgsav, shpsav; 


*##  INDEXES  ## 

*  Note  that  cost  of  living  index  (COLIND)  is  the  simple  average  over 

*  households.  CARD(hh)  is  the  "cardinal"  function  which  counts  number 

*  of  entries  in  the  set. 


COLIND  =  SUM(i,p.l(i)*(SUM(hh,cles(i,hh))))*100/CARD(hh); 

WTD(i)  =  XXD0(i)/SUM(j,XXD0(j))  ; 

WTM(i)  =  M0(i)/SUM(j,(M0(j)+E0(j)))  ; 

WTX(i)  =  E0(i)/SUM(j,(M0(j)+E0(j)))  ; 

EXRIND  =  SUM(i,WTD(i)*PD.L(i)) 

/SUM(i,(WTM(i)*PM.L(i))+(WTX(i)*PE.L(i)))*100  ; 
pdind  =  SUM(i,xxd0(i)*pd.l(i))/SUM(j,xxd0(j))*100; 

peind  =  SUM( i ,e0( i )*pe. l( i ))/SUM( j ,e0( j ))*100; 

pind  =  SUM(i,x0(i)*p.l(i))/SUM(j,x0(j))*100; 

pmind  =  SUM( i ,m0( i )*pm. I ( i ))/SUM( j ,m0( j ))*100; 

pweind  =  SUM( i ,e0( i )*pwe. l( i ))/SUM( i ,e0( i ))*100; 

pwmind  =  SUM( i ,m0( i )*pwm( i ))/SUM( i ,m0( i ))*100; 

pxind  =  SUM( i ,pwts( i )*px. l( i ) )*100  ; 

DISPLAY  CO  I ind,exri nd, ngnp, pdind, pind, peind, pmind, pweind, pwmind, pxind; 
*####  SPECIFY  SOLUTION  REPORT  TABLES  #### 


*##  GNP  Tables  M 


*  Note  treatment  of  tariffs. 

*  In  U.S.  NIPA,  tariffs  are  included  in  the  service  sector. 

*  In  the  U.N.  SNA,  tariffs  are  treated  separately. 

*  Treatment  below  follows  U.S.  NIPA  practice. 

*  Note  that  real  GNP  from  expenditure  side  provides  the  control  total, 

*  and  sectoral  real  value  addeds  are  adjusted 

*  to  match  total  using  gnpratio. 
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gnptab( 

gnptabC 

gnptab( 

gnptab( 

gnptabC 

gnptabC 

gnptabC 

gnptabC 

gnptabC 

gnptabC 

gnptabC 

gnptabC 

gnptabC 

gnptabC 

gnptabC 

gnptabC 

gnptabC 


nominal") 

= 

SUMCi 

real") 

= 

SUMCi 

"."nominal") 

= 

SUMCi 

"."real") 

= 

SUMCi 

, "nominal") 

= 

SUMCi 

."real") 

= 

SUMCi 

"."nominal") 

= 

SUMCi 

"."real") 

= 

SUMCi 

nominal") 

= 

SUMCi 

real") 

= 

SUMCi 

nominal") 

= 

-SUMC 

real") 

= 

-SUMC 

"gnp", "nominal") 

"gnp","real") 

ignp,"nomshare"> 

ignp,"realshare") 

ignp, "deflator") 


gnptab2Ci ."nominal") 

gnptab2C "servi ce" , "nomi na 
gnptab2C i , "real") 
gnptab2C "servi ce" , " rea I " ) 

sumgnpC "nomi na I " ) 
sumgnpC'real") 
gnpratio 

gnptab2Ci,"real") 
sumgnpC'real") 
gnptab2C i ."nomshare") 
gnptab2C i ."realshare") 
sutngnpC  "nomshare" ) 
sumgnpC "rea I share") 
gnptab2C i ."deflator") 


.p.lCi)*cd.lCi))  ; 

.cd.lCi)); 

.p.lCi)*id.lCi)); 

. id.lCi))  ; 
.p.lCi)*dst.lCi))  ; 
.dst.lCi))  ; 
.p.lCi)*gd.lCi))  ; 
.gd.lCi))  ; 

.pwe. IC i )*e. IC i ))*exr . I  ; 
.C1.0  -  terealCi ))*e. IC i )) 


=  SUMCignp2.gnptabCignp2. "nominal"))  ; 

=  SUMCignp2.gnptabCignp2."real"))  ; 

=  100.*gnptabC ignp. "nominal") 

/gnptabC "gnp". "nominal")  ; 

=  100. *gnptabCignp. "real") 

/gnptabC"gnp"."real")  ; 

=  100. *gnptabCignp. "nominal") 

/gnptabCignp."real")  ; 

=  pva. IC i )*xd. U i )  +  i taxC i )*px. IC i )*xd. I C i ) 

-  teC i )*pwe. IC i )*e. IC i )*exr . I  ; 

I")  =  gnptab2C"service". "nominal")  +  tariff. 1; 
=  varOC i )*xd. IC i )  ; 

=  gnptab2C"service"."real") 

+  SUMC i . tmrealCi )*m. IC i )); 

=  SUMCi.gnptab2Ci. "nominal"))  ; 

=  SUMC i .gnptab2C i ."real"))  ; 

=  gnptabC"gnp"."real")/sumgnpC"real")  ; 

=  gnpratio*gnptab2Ci ."real")  ; 

=  SUMCi.gnptab2Ci."real"))  ; 

=  100*gnptab2Ci ."nominal" )/sumgnpC"nominal")  ; 
=  100*gnptab2Ci."real")/sumgnpC"real")  ; 

=  SUMCi.gnptab2Ci. "nomshare"))  ; 

=  SUMCi.gnptab2Ci. "realshare"))  ; 

=  1 00 .*gnptab2C i . "nomi na I " )/gnptab2C i . "rea I " ) ; 


DISPLAY  GNPTAB.  GNPTAB2.  SUMGNP.  GNPRATIO  ; 


*##  REPORT  ABSORPTION  ## 
absorbC"ag"."c") 
absorbC "non- ag" , "c" ) 
absorbC"total"."c") 
absorbC "ag"."i") 
absorbC "non- ag" . "  i " ) 
absorbC"total"."i") 
absorbC"ag"."g") 
absorbC "non- ag" . "g" ) 
absorbC'total". "g") 
absorbC"ag","E") 
absorbC "non- ag" . "E " ) 
absorbC'total". "E") 
absorbC "ag","M") 
absorbC "non-ag" . "M" ) 
absorbC'total", "M") 
absorbC"ag","NETE-M") 
absorbC "non- ag","NETE-M") 
absorbC'total", "NETE-M") 
absorbC " tota I ","T-G") 
absorbC"ag","GNP") 

absorbC "non- ag" , "gnp" ) 
absorbC "tota I", "gnp") 
absorbC "ag", "absorb") 
absorbC "non- ag" , "absorb" ) 
absorbC "tota I "."absorb") 


SUMCiag.CD.LCiag))  ; 

SUMCiagn.CD. Uiagn))  ; 

SUMCi.CD.lCi))  ; 

SUMCiag.ID.LCiag))  ; 

SUMCiagn.ID.LCiagn))  ; 

SUMCi.ID.LCi))  ; 

SUMCiag.GD.LCiag))  ; 

SUMCiagn.GD.LCiagn))  ; 

SUMCi.GO.LCi))  ; 

SUMCiag.E.LCiag))  ; 

SUMC iagn.E.LC iagn))  ; 

SUMCi.E.LCi))  ; 

SUMCiag.M.LCiag))  ; 

SUMC iagn.M.LC iagn))  ; 

SUMCi.M.LCi))  ; 

SUMCiag,E.LCiag))-SUMCiag,M.LCiag))  ; 

SUMC iagn.E.LC iagn)) -SUMC iagn.M.LC iagn))  ; 
esum  -  msum  ; 
govsav.L  ; 

SUMCiag.cd. lCiag)+dst. IC iag)+id. U iag) 
+gd.lCiag)+e.lCiag)-m.lCiag))  ; 
rgnp.l  -  absorbC "ag", "gnp")  ; 
rgnp. I  ; 

SUMCiag.cd. I Ciag)+id. lCiag)+gd. I C iag))  ; 
SUMCiagn,cd.lCiagn)+id.lCiagn)+gd.lCiagn)); 
SUMC  i , cd.  I C  i  )+icl.  I C  i  )+gd.  I C i ) )  ; 


DISPLAY  ABSORB  ; 
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*M#  calculate  and  report  selected  parameters  and  coefficients  ######### 
INTINP(j)  =  sum(i,  I0(i, j)* *XD.L( j))  ; 

INTINPN(j)  =  sumCi,  P.L(i)*I0(i, j)*XD.L(j))  ; 

PINT(i)  =  SUM(J,  I0(J,i)*P.L(j))  ; 

YF(i,f)  =  WFDIST(i,f)*WF.L(f)*FDSC.L(i,f)  ; 

PROF  I T ( i )  =  (UFD I  ST ( i , "capi ta I " )*WF . L ( "capi ta I " )*  FDSC . L ( i , "capi t a  I " ) ) 

/( FDSC . L ( i , "capi ta I " )*PK . L ( i ) )  ; 

AVGPROFIT  =  SUM(I,  WFDISK i , "capi tal")*WF .LC'capi tal") 

*FDSC.L(i,"capital"))/SUM(I,  FDSC.L( i ,"capi tal")*PIC.L( i ) ); 
AVGWF(f)  =  YFCTR.L(f)/FS.L(f)  ; 

RENTAL(i)  =  (WFDISK i , "capi tal")*WF. LC'capi tal")*FDSC.L( i ,"capi tal") ) 
/FDSC. L(i, "capi tal")  ; 

RDIST(i)  =  RENTAL(i)/AVGWF("capital")  ; 

VALADD(i)  =  (PVA.L<i)+(lTAX(i)*PX.L(i)))*XD.L(i); 

SECTORY(i)  =  (PVA.L(i))*XD.L(i); 

RMD(i)  =  M.L(i)/XXD.L(i)  ; 


D I  SPLAY  AVGWF , AVGPROF I T , VALADD , SECTORY 


,"YF") 

= 

SUM(f,YF(i,f))  ; 

,"YFCAP") 

S 

YF(i, "capi tal")  ; 

, "PROFIT") 

= 

PROFIT(i)  ; 

,  "RENTAL") 

= 

RENTAL(i)  ; 

,"RDIST") 

= 

RDIST(i)  ; 

,"WDCAP") 

WFDISTCi, "CAPITAL") 

,"YFLABOR") 

= 

YF(i, "LABOR")  ; 

,"WOLABOR") 

= 

WFDIST(i, "LABOR")  ; 

,"YFLAND") 

= 

YF(i,"LAND")  ; 

,"WOLAND") 

WFDIST(i,"LAND")  ; 

,"PINT") 

= 

PINT(i)  ; 

,"INTINP") 

— 

INTINP(i)  ; 

"ALPHAL") 

- 

ALPHAC i, "LABOR")  ; 

"ALPHAP") 

= 

ALPHAC i, "LAND")  ; 

"ALPHAC") 

= 

ALPHAC i, "CAP  I TAL") 

"RMD") 

= 

RMDCi)  ; 

"DELTA") 

= 

DELTACi)  ; 

"AD") 

= 

ADCi)  ; 

DISPLAY  FACTORS,  COEFFS 


*####  3)  TABLES  OF  RESULTS  FOR  RESTART  SOLUTION  RATIO  TABLES 
*####  DEFINE  SETS  FOR  RESTART  SOLUTION  RATIO  TABLES  #### 


*  for  SCALRES1,SCALRES2,RSCALE 

SET  SC  /  EXR,  PINDEX,  RGNP,  GNPVA,  INVEST,  FXDINV,  GDTOT, 

GR,  SSTAX,  TARIFF,  INDTAX,  ENTTAX,  TOTHHTAX,  NETSUB, 

REMIT,  GENT,  HHT,  FBOR,  SAVINGS,  ENTSAV,  DEPRECIA, 

HHSAV,  GOVSAV,  FSAV  /  ; 

PARAMETER  SCALRESI(sc)  AGGREGATE  VARIABLES  ; 

PARAMETER  SCALRES2(sc)  RESTART  SCALAR  RESULTS  ; 

PARAMETER  RSCALE(sc)  PERCENT  CHANGE  FROM  BASE  SCALARS  ; 


*  for  PRICRES 

SET  rp  /  PX,  PVA,  PE,  PWE, 
PARAMETER  PRICRES1(i,rp) 
PARAMETER  PRICRES2( i , rp) 
PARAMETER  RPRICE(i,rp) 


PM,  PWM,  PD,  P,  PROFIT,  RENTAL,  PINT  /  ; 
PRICE  RESULTS  BY  SECTOR  ; 

RESTART  PRICE  RESULTS  ; 

PERCENT 'change  FROM  BASE  PRICE  RESULTS  ; 


*  for  QUANTRES 

SET  rq  /  XD,  VALADD,  SECTORY,  E,  M,  LABOR,  CAPITAL,  LAND,  X,  XXD  /  ; 
PARAMETER  QUANTRESI ( i , rq)  QUANTITY  RESULTS  BY  SECTOR  ; 
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PARAMETER  QUANTRES2( i , rq)  RESTART  QUANTITY  RESULTS  ; 

PARAMETER  RQUANT(i,rq)  PERCENT  CHANGE  FROM  BASE  QUANTITY  RESULTS  ; 


*####  SPECIFY  TABLES  FOR  RESTART  RATIO  SOLUTION  REPORTS  #### 


PRICRES1(i,"PX") 

PRICRES1<i,"PVA") 

PRICRES1(i,"PE") 

PRICRES1(i,"PWE") 

PRICRES1(i,"PM") 

PRICRESl(i,"PWM") 

PRICRES1(i,"PD") 

PRICRESl(i,"P") 

PRICRESKi/'PROFIT") 

PRICRESKI, "RENTAL") 

PRICRES1<I,"PINT") 


PX.L(i)  ; 
PVA.L(i)  ; 
PE.L(i)  ; 
PWE.L(i)  ; 
PM.L(i)  ; 
PWM(i)  ; 
PO.L(i)  ; 
P.L(i)  ; 
PROFIT(i)  ; 
RENTAL(i)  ; 
PINT(i)  ; 


QUANTRES1(i,"XD") 
QUANTRESl(i,"VALADD") 
QUANTRES1 ( i , "SECTORY" ) 
QUANTRES1(i,"E") 
QUANTRESl(i,"M") 
QUANTRESKi,  "LABOR") 
QUANTRESKi, "CAPITAL") 
QUANTRESKi,  "LAND") 
QUANTRES1(i,"X") 
QUANTRES1(i,"XXD") 


XD.L(i)  ; 

VALADO(i)  ; 

SECTORY(i)  ; 

E.L<i)  ; 

M.L<i)  ; 

FDSC.L(i," LABOR")  ; 
FDSC.L(i, "capita I")  ; 
FDSC.L(i,"LAND")  ; 
X.L(i)  ; 

XXD.L(i)  ; 


*m  MACRO  AGGREGATE  RESULTS 


SCALRESIC'EXR") 

= 

EXR.L  ; 

SCALRESIC'PINDEX") 

= 

PINDEX.L  ; 

SCALRESIC'RGNP") 

= 

RGNP.L  ; 

SCALRESIC'GNPVA") 

S 

GNPVA.L  ; 

SCALRESK"  INVEST") 

= 

INVEST.L  ; 

SCALRESIC'FXDINV") 

= 

FXDINV.L  ; 

SCALRESK  "GDTOT") 

= 

GDTOT. L  ; 

SCALRESIC'GR") 

s 

GR.L  ; 

SCALRESIC'SSTAX") 

= 

SSTAX.L  ; 

SCALRESK"TARIFF") 

= 

TARIFF, L  ; 

SCALRESK"  I NDTAX") 

I NDTAX. L  ; 

SCALRESIC'ENTTAX") 

= 

ENTTAX.L  ; 

SCALRESK "TOTHHTAX") 

= 

TOTHHTAX. L  ; 

SCALRESIC'NETSUB") 

s 

NETSUB.L  ; 

SCALRESIC'REMIT") 

s 

REMIT. L  ; 

SCALRESK  "GENT") 

= 

GENT.L  ; 

SCALRESIC'HHT") 

s 

HHT.L  ; 

SCALRESIC'FBOR") 

= 

FBOR.L  ; 

SCALRES1 ("SAVINGS") 

SAVINGS.L  ; 

SCALRESK "ENTSAV") 

= 

ENTSAV. L  ; 

SCALRESIC'DEPRECIA") 

= 

DEPRECIA.L  ; 

SCALRESIC'HHSAV") 

s 

HHSAV.L  ; 

SCALRESIC'GOVSAV") 

s 

GOVSAV.L  ; 

SCALRESIC'FSAV") 

= 

FSAV.L  ; 

DISPLAY  PRICRES1,  QUANTRESI,  SCALRES1  ; 


social 


Accounting  Matrix 


SAMC'COMMDTY", "ACTIVITY") 
SAMC'COMMDTY", "HOUSEHOLDS") 
SAM( "COMMDT Y" , "KACCOUNT" ) 
SAM( "COMMDTY" , "GOVT" ) 

SAM( "ACTIVITY", "WORLD") 

SAM( "ACT  I V I T Y" , "COMMDTY" ) 


=  SUM(i,(P.L(i)*INT.L(i)))  ; 

=  SUM(i,(P.L(i)*CD.L(i)))  ; 

=  SUM(i,<P.L(i)*(DST,L(i)+ID.L(i))))  ; 
=  SUM(i,(P,L(i)*GD.L(i)))  ; 

=  SUM(i,((EXR.L*PWE.L(i))*E.L(i)))  ; 

=  SUM(i,  (PX.L(i)*XD.L(i)) 

-  (PE.L(i)*E.L(i))  )  ; 
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SAM ("ACTIVITY", "GOVT " ) 

SAM ( " VALUAD " , " ACT  I V I T  Y " ) 

SAM( " I NSTTNS" , "VALUAD" ) 
SAM("INSTTNS","GOVT") 

SAM( "HOUSEHOLDS" , " I NSTTNS" )= 
SAM( "HOUSEHOLDS" , "GOVT" ) 

SAM( "KACCOUNT" , " I NSTTNS" ) 
SAMC'KACCOUNT", "HOUSEHOLDS") 
SAM ( "KACCOUNT" , "GOVT " ) 

SAM( "GOVT" , "commdty" ) 

SAM( "GOVT", "ACTIVITY") 

SAM ( "GOVT ",  "VALUAD " ) 

SAM( "GOVT", "I NSTTNS") 

SAM( "GOVT" , "HOUSEHOLDS" ) 

SAM ( "WORLD" , "COMMDTY" ) 

SAM( "WORLD" , "HOUSEHOLDS" ) 
SAM( "WORLD", "GOVT") 

SAM ( "WORLD" , "KACCOUNT " ) 

SAM( "TOTAL" , "COMMDTY" ) 

SAM ( "TOTAL" , "ACT  I V I T Y " ) 

SAM( "TOTAL", "VALUAD") 

SAM( "TOTAL" ," I NSTTNS" ) 

SAM( "TOTAL" , "HOUSEHOLDS" ) 
SAM( "TOTAL" , "KACCOUNT" ) 

SAM ("TOTAL", "GOVT") 

SAM( "total", "WORLD") 
SAM(isam3, "TOTAL") 


=  NETSUB.L  ; 

=  SUM(f,  YFCTR,L(f))  ; 

=  SUM(f,YFCTR.L(f))  -  SSTAX.L  ; 

=  GENT.L  ; 

SUM((ins,hh),SINTYH(hh,ins)*YINST.L(ins)); 
=  HHT.L  ; 

=  ENTSAV.L  +  DEPRECIA.L  ; 

=  HHSAV.L  ; 

=  GOVSAV.L  ; 

=  TARIFF. L  ; 

=  INDTAX.L  ; 

=  SSTAX.L  ; 

=  ENTTAX.L  ; 

=  TOTHHTAX.L  ; 

=  SUM(i,((PWM(i)*EXR.L)*M.L(i)))  ; 

=  -  REMIT. L*EXR.L  ; 

=  -  FBOR.L*EXR.L  ; 

=  -  FSAV.L*EXR.L  ; 

=  SUM(isani2,SAM(isam2, "COMMDTY"))  ; 

=  SUM(isain2,SAM(isam2, "ACTIVITY"))  ; 

=  SUM(isam2,SAM(isam2, "VALUAD"))  ; 

=  SUM(isam2,SAM(isam2,"INSTTNS"))  ; 

=  SUM(isam2,SAM(isam2, "HOUSEHOLDS"))  ; 

=  SUM(isain2,SAM(isam2, "KACCOUNT"))  ; 

=  SUM(isatn2,SAM(isain2,"GOVT"))  ; 

=  SUM(isam2,SAM(isam2, "WORLD"))  ; 

=  SUM(isain2,SAM(isam3,isam2))  ; 


option  decimals=3  ; 

DISPLAY  SAM; 

THE  END  ################################ 


COMPILATION  TIME 


10.050  SECONDS 


VER:  386-EK-008 
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GAMS  2.22  DOS-386  90/04/2A  14:22:43  PAGE 

USDA/ERS  GAMS  U.S.  CGE  MODEL  FOR  1982  APRIL  1990 

EXECUTING 


556  PARAMETER  WFDIST  FACTOR  PRICE  SECTORAL  PROPORTIONALITY  CONSTANTS 


LABOR 

CAPITAL 

LAND 

LVSTK 

0.585 

0.401 

EXPCRP 

0.432 

0.852 

0.896 

OTHCRP 

0.501 

0.899 

1.415 

AGPROC 

0.929 

2.313 

AGINP 

1.156 

1.111 

INTMNF 

1.384 

1.285 

FDMNF 

1.346 

1.087 

TRDTRN 

0.898 

1.325 

SERVICE 

0.956 

0.814 

RESTA 

0.563 

1.464 

LABOR 


556  PARAMETER  WFO  FACTOR  PRICE 

19.733,  CAPITAL  0.157,  LAND  0.053 


556  PARAMETER  FSO 


FACTOR  SUPPLY 


LABOR  96.641,  CAPITAL  6244.072,  LAND  428.250 


556  PARAMETER  YFSECTO  FACTOR  INCOME  BY  SECTOR 


LVSTK  9.807, 
AGINP  34.223, 
SERVICE  1542.043, 


EXPCRP  29.389, 
INTMNF  269.408, 
RESTA  158.519 


OTHCRP  15.199, 
FDMNF  312.655, 


AGPROC  98.626 
TRDTRN  437.355 


556  PARAMETER  YFCTRO 


FACTOR  INCOME  SUMMED  OVER  SECTOR 


LABOR  1907.000,  CAPITAL  977.319, 


LAND 


22.905 


----  557  PARAMETER  YINSTO 

LABR  1637.465,  ENT  558.575, 


INSTITUTIONAL  INCOME 
PROP  22.905 


----  557  PARAMETER  YHO 

HHTRN  396.250,  HHLAB  1637.465, 


HOUSEHOLD  INCOME 
HHCAP  580.231 


.... 

557  PARAMETER 

MPSO 

HCXJSEHOLD 

MARGINAL  PROPENSITY  TO  SAVE 

HHLAB 

0.062,  HHCAP 

0.174 

.... 

557  PARAMETER 

HTAX 

HOUSEHOLD 

TAX  RATE 

HHLAB 

0.126,  HHCAP 

0.350 

557  PARAMETER 

ETR 

. 

0.098  ENTERPRISE  TAX  RATE 

PARAMETER 

ESR 

= 

0.035  ENTERPRISE  SAVINGS  RATE 

PARAMETER 

SSTR 

0.141  SOCIAL  SECURITY  TAX  RATE 

571  PARAMETER 

DELTA 

ARMINGTON 

FUNCTION  SHARE  PARAMETER 
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LVSTK 

AGPROC 

FDMNF 

0.233,  EXPCRP 
0.211,  AGINP 
0.152,  TRDTRN 

0.177,  OTHCRP  0.366 
0.042,  INTMNF  0.067 
0.004,  SERVICE  2.580477E-9 

.... 

571  PARAMETER  AC 

ARMINGTON  FUNCTION  SHIFT  PARAMETER 

LVSTK 

INTMNF 

1.420,  EXPCRP 

1.365,  FDMNF 

1.297, 

1.563, 

OTHCRP  1.773,  AGPROC  1.498, 

TRDTRN  1.022,  SERVICE  1.024, 

AGINP 

RESTA 

1.269 

1.000 

.... 

571  PARAMETER  RMD 

RATIO  OF  IMPORTS  TO  DOMESTIC  SALES 

LVSTK 

INTMNF 

0.008,  EXPCRP 

0.138,  FDMNF 

0.002, 

0.213, 

OTHCRP  0.111,  AGPROC  0.071, 

TRDTRN  0.002,  SERVICE  0.019 

AGINP 

0.096 

.... 

579  PARAMETER  GAMMA 

CET  FUNCTION  SHARE  PARAMETER 

LVSTK 

INTMNF 

1.000,  EXPCRP 

0.788,  FDMNF 

0.568, 

0.778, 

OTHCRP  0.802,  AGPROC  0.819, 
TRDTRN  0.818,  SERVICE  0.995, 

AGINP 

RESTA 

0.781 

0.998 

579  PARAMETER  AT 


GET  FUNCTION  SHIFT  PARAMETER 


LVSTK 

AGINP 

SERVICE 


51.023, 

2.823, 

7.365, 


EXPCRP 

INTMNF 

RESTA 


2.074, 

2.876, 

10.406 


OTHCRP  3.006,  AGPROC  3.175 

FDMNF  2.612,  TRDTRN  3.162 


584  PARAMETER  ALPHA 


FACTOR  SHARE  PARAMETER-PRODUCTION  FUNCTION 


LABOR 

CAPITAL 

LAND 

LVSTK 

0.489 

0.511 

EXPCRP 

0.113 

0.328 

0.559 

OTHCRP 

0.323 

0.251 

0.427 

AGPROC 

0.667 

0.333 

AGINP 

0.592 

0.408 

INTMNF 

0.571 

0.429 

FDMNF 

0.841 

0.159 

TRDTRN 

0.755 

0.245 

SERVICE 

0.680 

0.320 

RESTA 

0.075 

0.925 

.... 

591  PARAMETER  AD 

PRODUCTION  FUNCTION  SHIFT  PARAMETER 

LVSTK 

12.617,  1 

EXPCRP 

0.751, 

OTHCRP  2.182,  AGPROC  37.138 

AGINP 

47.468, 

INTMNF 

16.892, 

FDMNF  48.285,  TRDTRN  18.680 

SERVICE 

12.075,  1 

RESTA 

0.583 

.... 

591  PARAMETER  QD 

DUMMY  VARIABLE  FOR  COMPUTING  AD(I) 

LVSTK 

6.112, 

EXPCRP 

'  95.520, 

OTHCRP  12.165,  AGPROC  10.532 

AGINP 

5.589, 

INTMNF 

40.951, 

FDMNF  16.933,  TRDTRN  42.026 

SERVICE 

216.065, 

RESTA 

395.827 

.... 

591  PARAMETER  FDO 

FACTOR  DEMAND 

LABOR 

96.641, 

CAPITAL  6244.073,  LAND  428.251 

597  PARAMETER  XDO 


DOMESTIC  OUTPUT 


LVSTK  77.115, 
AGINP  265.280, 
SERVICE  2609.047, 


EXPCRP  71.773,  OTHCRP  26.544,  AGPROC  391.145 
INTMNF  691.753,  FDMNF  817.594,  TRDTRN  785.067 
RESTA  230.939 
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LVSTK 

AGINP 

SERVICE 


LVSTK 

AGINP 

SERVICE 


LVSTK 

INTMNF 


LVSTK 

INTMNF 


LVSTK 

INTMNF 


LVSTK 

INTMNF 


LVSTK 

INTMNF 


LVSTK 

INTMNF 


LVSTK 

AGPROC 

FDMNF 


LVSTK 

INTMNF 


LABOR 


597  PARAMETER  XO 


COMPOSITE  GOOD  SUPPLY 


77,557, 

269.608, 

2549.723, 


EXPCRP  53.983,  OTHCRP  27.809, 
INTMNF  734.080,  FDMNF  861.036, 
RESTA  225.490 


AGPROC  399.482 
TRDTRN  749.789 


597  PARAMETER  XXDO  DOMESTIC  SALES 


76.904, 

245.939, 

2501.795, 


EXPCRP  53.866,  OTHCRP  25.026, 
INTMNF  644.884,  FDMNF  709.591, 
RESTA  225.490 


AGPROC  372.919 
TRDTRN  747,944 


598  PARAMETER  PVAO 


VALUE  ADDED  PRICE  BY  SECTOR 


0.127, 

0.389, 

EXPCRP 

FDMNF 

0.409,  OTHCRP  0.573, 

0.382,  TRDTRN  0.557, 

AGPROC 

SERVICE 

0.252, 

0.591, 

AGINP 

RESTA 

0.129 

0.686 

598  PARAMETER  PDO 

DOMESTIC  GOODS 

PRICE 

1.000,  EXPCRP  1.000, 

1.000,  FDMNF  1.000, 


OTHCRP  1.000, 
TRDTRN  1.000, 


AGPROC  1.000, 
SERVICE  1,000, 


AGINP  1.000 
RESTA  1.000 


598  PARAMETER  PEO 

DOMESTIC  PRICE 

OF  EXPORTS 

1.000, 

EXPCRP  1.000, 

OTHCRP 

1.000, 

AGPROC 

1.000, 

AGINP 

1.000 

1.000, 

FDMNF  1.000, 

TRDTRN 

1.000, 

SERVICE 

1.000, 

RESTA 

1.000 

598  PARAMETER  PWEO 

WORLD 

PRICE  OF 

EXPORTS 

1.000, 

EXPCRP  1.000, 

OTHCRP 

1.000, 

AGPROC 

1.000, 

AGINP 

1.000, 

FDMNF  1.000, 

TRDTRN 

1.000, 

SERVICE 

1.000, 

RESTA 

598  PARAMETER  PMO 

DOMESTIC  PRICE 

OF  IMPORTS 

1.000, 

EXPCRP  1.000, 

OTHCRP 

1.000, 

AGPROC 

1.000, 

AGINP 

1.000 

1.000, 

FDMNF  1.000, 

TRDTRN 

1.000, 

SERVICE 

1.000, 

RESTA 

1.000 

598  PARAMETER  PWM 


WORLD  MARKET  PRICE  OF  IMPORTS  (IN  DOLLARS) 


0.987,  EXPCRP  0.972,  OTHCRP  0.964,  AGPROC  0.897, 

0.982,  FDMNF  0.973,  TRDTRN  0.973,  SERVICE  1.000, 


AGINP  0.997 
RESTA  1.000 


598  PARAMETER  TM 


TARIFF  RATES  ON  IMPORTS 


0.014,  EXPCRP 

0.115,  AGINP 

0.027,  TRDTRN 


0.029,  OTHCRP  0.037 
0.003,  INTMNF  0.018 
0.027,  SERVICE  8.345875E-6 


598  PARAMETER  PWTS 


PRICE  INDEX  WEIGHTS 


0.013,  EXPCRP  0.012,  OTHCRP  0.004, 

0.116,  FDMNF  0.137,  TRDTRN  0.132, 


AGPROC  0.066,  AGINP  0.044 

SERVICE  0.437,  RESTA  0.039 


744  VARIABLE  YFCTR.L  FACTOR  INCOME 

(BILL  $) 


1907.000,  CAPITAL  977.319,  LAND  22.905 


744  VARIABLE  YINST.L  INSTITUTIONAL  INCOME 

(BILL  $) 
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LABR  1637.465 


ENT  558.575 


PROP  22.905 


744  VARIABLE  YH.L 


HOUSEHOLD  INCOME 
(BILL  $) 


HHTRN  396.250,  HHLAB  1637.465,  HHCAP  580.231 


744  VARIABLE  GNPVA.L 

VARIABLE  RGNP.L 

VARIABLE  PINDEX.L 


3166.001 

3166.002 

1.000 


VALUE  ADDED  IN  MARKET 
PRICES  GNP 
(BILL  $) 

REAL  GNP 

(82  BILL 
S) 

GNP  DEFLATOR 


745  VARIABLE  INT.L 


INTERMEDIATES  USES 
BILL  $) 


(82 


LVSTK 

70.466, 

EXPCRP 

46.071, 

OTHCRP 

15.768, 

AGPROC  160.111 

AGINP 

195.025, 

INTMNF 

694.450, 

FDMNF 

389.942, 

TRDTRN  337.164 

SERVICE 

767.737, 

RESTA 

132.121 

.... 

745  VARIABLE 

CD.L 

FINAL  DEMAND 

FOR  PRIVATE  CONSUMPTION 

BILL 

$) 

LVSTK 

6.597, 

EXPCRP 

0.914, 

OTHCRP 

11.488, 

AGPROC  231.451 

AGINP 

55.811, 

INTMNF 

22.496, 

FDMNF 

216.391, 

TRDTRN  386.724 

SERVICE 

1041.077, 

RESTA 

77.752 

-  -  -  - 

745  VARIABLE 

GD.L 

FINAL  DEMAND 

FOR  GOVERNMENT  CONSUMPTION 

BILL 

$) 

LVSTK 

0.431, 

EXPCRP 

7.475, 

OTHCRP 

0.681, 

AGPROC  9.138 

AGINP 

12.500, 

INTMNF 

12.749, 

FDMNF 

97.993, 

TRDTRN  28.760 

SERVICE 

465.610, 

RESTA 

6.364 

-  -  -  - 

745  VARIABLE 

ID.L 

FINAL  DEMAND 

FOR  PRODUCTIVE  INVESTMENT 

BILL 

$) 

AGPROC 

1.180, 

AGINP 

8.418, 

INTMNF 

8.724, 

FDMNF  165.525 

SERVICE 

278.703, 

RESTA 

9.252 

(82 


(82 


(82 


745  VARIABLE  DST.L  INVENTORY  INVESTMENT  BY  SECTOR  (82 

BILL  $) 


LVSTK 

AGINP 

SERVICE 

0.063, 

-2.146, 

-3.402 

EXPCRP 

INTMNF 

-0.477, 

-4.339, 

OTHCRP 

FDMNF 

-0.129, 

-8.814, 

AGPROC  -2.399 

TRDTRN  -2.858 

.... 

745  VARIABLE  DK.L 

VOLUME  OF  INVESTMENT 
(82  BILL  $) 

BY  SECTOR  OF  DESTINATION 

LVSTK 

AGINP 

SERVICE 

6.033, 

6.074, 

292.551, 

EXPCRP 

INTMNF 

RESTA 

5.462, 

43.421, 

48.345 

OTHCRP 

FDMNF 

2.045, 

22.009, 

AGPROC  6.863 

TRDTRN  38.997 
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789  PARAMETER  SAM 


SOCIAL  ACCOUNTING  MATRIX 


COMMDTY 

ACTIVITY 

COMMDTY 

2808.86 

ACTIVITY 

5604.36 

VALUAD 

INSTTNS 

HOUSEHOLDS 

2907.22 

GOVT 

KACCOUNT 

8.60 

250.18 

WORLD 

335.60 

TOTAL 

5948.56 

5966.26 

+ 

KACCOUNT 

WORLD 

COMMDTY 

447.30 

ACTIVITY 

VALUAD 

INSTTNS 

HOUSEHOLDS 

GOVT 

KACCOUNT 

361.90 

WORLD 

-1.03 

TOTAL 

446.27 

361.90 

VALUAD 

INSTTNS  HOUSEHOLDS 

GOVT 

2050.70 

641.70 

2637.69 

2218.95 

47.53 

396.25 

269.54 

63.08 

409.34 

403.19 

153.91 

-110.83 

1.25 

26.08 

2907.22 

2685.22 

2615.20 

1000.73 

TOTAL 

5948.56 

5966.26 

2907.22 

2685.22 
2615.20 
1000.73 

446.27 

361.90 
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GAMS  2.22  DOS-386  90/04/24  14:22:43 

USDA/ERS  GAMS  U.S.  CGE  MODEL  FOR  1982  APRIL  1990 

MODEL  STATISTICS  SOLVE  US82  USING  NLP  FROM  LINE  1048 


MODEL  STATISTICS 


BLOCKS  OF  EQUATIONS 

45 

SINGLE  EQUATIONS 

232 

BLOCKS  OF  VARIABLES 

50 

SINGLE  VARIABLES 

260 

NON  ZERO  ELEMENTS 

1321 

NON  LINEAR  N-Z 

624 

DERIVATIVE  POOL 

23 

CONSTANT  POOL 

233 

CODE  LENGTH 

7354 

GENERATION  TIME 

= 

14.550  SECONDS 

EXECUTION  TIME 

SOL 

MODEL  US82 
TYPE  NLP 
SOLVER  MINOS5 

****  SOLVER  STATUS 
****  MODEL  STATUS 
****  OBJECTIVE  VALUE 


=  23.460  SECONDS 

VE  SUMMARY 

OBJECTIVE 
DIRECTION 
FROM  LINE 

1  NORMAL  COMPLETION 

2  LOCALLY  OPTIMAL 

3166.0009 


VER:  386-EK-008 


RGNP 

MAXIMIZE 

1048 


RESOURCE  USAGE,  LIMIT 
ITERATION  COUNT,  LIMIT 
EVALUATION  ERRORS 


39.000  1000.000 

195  1000 

0  0 


MINOS  5.2  (Jun  1989) 


B.  A.  Murtagh,  University  of  New  South  Wales 
and 

P.  E.  Gill,  W.  Murray,  M.  A.  Saunders  and  M.  H.  Wright 
Systems  Optimization  Laboratory,  Stanford  University. 


WORK  SPACE  NEEDED  (ESTIMATE)  --  21910  WORDS. 
WORK  SPACE  ALLOCATED  --  39052  WORDS. 


EXIT  --  OPTIMAL  SOLUTION  FOUND 


MAJOR  ITNS,  LIMIT 
FUNOBJ,  FUNCON  CALLS 
SUPERBASICS 
INTERPRETER  USAGE 
NORM  RG  /  NORM  PI 


****  REPORT  SUMMARY  : 


8  50 

0  13 

0 

0.00 

O.OOOE+00 


0  NONOPT 
0  INFEASIBLE 
0  UNBOUNDED 
0  ERRORS 


PAGE  3 
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GAMS  2.22  DOS-386  90/04/24  14:24:00  PAGE 

USDA/ERS  GAMS  U.S.  CGE  MODEL  FOR  1982  APRIL  1990 

EXECUTING 


1138  PARAMETER  SCALRES 


EXR 

1.000000, 

PINDEX 

1.000000, 

GDTOT 

641.700000 

INVEST 

447.299106, 

SSTAX 

269.535307, 

ENTTAX 

63.079604 

TOTHHTAX  409.335718, 

REMIT 

-1.250000, 

GENT 

47.530000 

HHT 

396.249995, 

FBOR 

-26.080000, 

ENTSAV 

20,030312 

HHSAV 

153.907905, 

GOVSAV 

-110.833019, 

FSAV 

1.029951 

RGNP 

3166.000916, 

GNPVA 

3166.000217, 

FXDINV 

471.800138 

GR 

974.646839, 

TARIFF 

8.599994, 

INDTAX 

250.176203 

SAVINGS 

447.299106, 

DEPRECIA 

383.163957 

.... 

1138  PARAMETER 

FCTRES1 

FACTOR  DEMAND 

BY  SECTOR 

LABOR 

CAPITAL 

LAND 

LVSTK 

0.415351 

79.843460 

EXPCRP 

0.389789 

72.291068 

342.600644 

OTHCRP 

0.495859 

27.070361 

85.649356 

AGPROC 

3.584818 

90.829040 

AGINP 

0.887447 

80.391815 

INTMNF 

5.635198 

574.657979 

FDMNF 

9.907518 

291,267435 

TRDTRN 

18.648109 

516.105260 

SERVICE 

55.605910  3871.779401 

RESTA 

1.071000 

639,836181 

.... 

1138  PARAMETER 

FCTRES2 

MISCELLANEOUS 

FACTOR  VARIABLE  RESULTS 

LABOR 

CAPITAL 

LAND 

WF  19.732823  0.156519  0.053486 
FS  96.640999  6244.071998  428.250000 
YFCTR  1906.999485  977.319011  22.905524 


----  1138  PARAMETER  SECTRES  SECTORAL  QUANTITIES  AND  PRICES 


LVSTK 

EXPCRP 

OTHCRP 

AGPROC 

AGINP 

INTMNF 

XD 

77.114749 

71.773227 

26.543486 

391.146007 

265.279442 

691.750952 

E 

0.211589 

17.906952 

1.517499 

18.226625 

19.340700 

46.868797 

M 

0.653642 

0,116665 

2.782435 

26.562726 

23.669220 

89.196029 

PX 

0.999999 

1.000000 

1.000002 

1.000000 

1.000000 

1.000000 

PE 

1,000002 

0.999999 

1.000001 

1.000000 

1.000000 

1.000000 

PM 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1,000000 

P 

0.999999 

1.000000 

1.000002 

1.000000 

1.000000 

1,000000 

PD 

0.999999 

1.000000 

1.000002 

1.000000 

1.000000 

1.000000 

PK 

1.000000 

1,000000 

1.000000 

1.000000 

1.000000 

1.000000 

PVA 

0.127177 

0.409476 

0.572615 

0.252146 

0.129008 

0.389458 

PWE 

1.000002 

1.000000 

1.000002 

1.000000 

1.000000 

1.000000 

X 

77.556803 

53,982940 

27.808421 

399.482108 

269.607962 

734,078184 

XXD 

76.903161 

53.866275 

25.025986 

372.919382 

245.938742 

644.882155 

INT 

70.466404 

46.070617 

15.767772 

160.111561 

195.024743 

694.448788 

CD 

6.597278 

0.914244 

11.488463 

231.451029 

55.811001 

22.495797 

GD 

0.430580 

7.475156 

0.680843 

9.137799 

12.499662 

12.748641 

ID 

1.180227 

8.418136 

8.723619 

DST 

0.062540 

-0,477077 

-0.128656 

-2.398507 

-2.145580 

-4.338662 

DK 

6.032910 

5.462031 

2.045254 

6.863278 

6.074428 

43.421192 

+ 

FDMNF 

TRDTRN 

SERVICE 

RESTA 

XD 

817.592523 

785.067874 

2609.047697 

230.939457 
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E 

108.002865 

37.123250 

107.252247 

5.449356 

M 

151.445547 

1.845286 

47.928278 

PX 

1.000000 

1.000000 

1.000000 

1.000000 

PE 

1.000000 

1.000000 

1.000000 

1.000000 

PM 

1.000000 

1.000000 

1.000000 

1.000000 

P 

1.000000 

1.000000 

1.000000 

1.000000 

PD 

1.000000 

1.000000 

1.000000 

1.000000 

PK 

1.000000 

1.000000 

1.000000 

1.000000 

PVA 

0.382409 

0.557092 

0.591037 

0.686410 

PWE 

1.000000 

1.000000 

1.000000 

1.000000 

X 

861.035204 

749.789910 

2549.723727 

225.490101 

XXD 

709.589658 

747.944624 

2501.795450 

225.490101 

INT 

389.942009 

337.163928 

767.737187 

132.121488 

CD 

216.390846 

386.724090 

1041.076569 

77.752339 

GD 

97.992626 

28.760324 

465.609996 

6.364374 

ID 

165.524188 

278.702174 

9.251900 

DST 

-8.814465 

-2.858432 

-3.402198 

DK 

22.008538 

38.997121 

292.550121 

48.345371 

-  -  -  - 

1138  PARAMETER  INSRES 

INSTITUTIONAL 

INCOME  RESULTS 

LABR  ENT 

PROP 

YINST 

1637.464178  558.575138 

22.905524 

— 

1138  PARAMETER  HHRES 

MISCELLANEOUS 

HOUSEHOLD  RESULTS 

HHTRN  HHLAB 

HHCAP 

MPS 

YH 

0.061607 
396.249995  1637.464178 

0.174295 

580.230662 

.... 

1251 

PARAMETER 

AGTOTFD 

= 

100.000 

AGRICULTURAL  TERMS  OF  TRADE 

PARAMETER 

AGTOTVA 

62.939 

AG  TERMS  OF  TRADE  VALUE 
ADDED 

PARAMETER 

AGTOTM 

99.345 

AG  TERMS  OF  TRADE  WORLD 
IMPORT  PRICE 

PARAMETER 

AGTOTE 

= 

100.000 

AG  TERMS  OF  TRADE  WORLD 
EXPORT  PRICE 

— 

1275 

PARAMETER 

BOT 

= 

26.300 

NOMINAL  BALANCE  OF  TRADE 

PARAMETER 

BOTR 

= 

17.700 

REAL  BALANCE  OF  TRADE 

PARAMETER 

NEX 

361.900 

NOMINAL  EXPORTS 

PARAMETER 

ESUM 

= 

361.900 

REAL  EXPORTS 

PARAMETER 

NIM 

= 

335.600 

NOMINAL  IMPORTS 

PARAMETER 

MSUM 

= 

344.200 

REAL  IMPORTS 

PARAMETER 

SHCONSUMP 

64.773 

CONSUMPTION  SHARE  OF 

NOMINAL  GNP 

PARAMETER 

SHINVEST 

14.128 

INVESTMENT  SHARE  OF 

NOMINAL  GNP 

PARAMETER 

SHGDTOT 

20.268 

GOVT  CONSUMPTION  SHARE  OF 
NOMINAL  GNP 

PARAMETER 

SHEX 

= 

11.431 

EXPORT  SHARE  OF  NOMINAL  GNP 

PARAMETER 

SHIM 

= 

10.600 

IMPORT  SHARE  OF  NOMINAL  GNP 

PARAMETER 

SHBOT 

= 

0.831 

BALANCE  OF  TRADE  SHARE  OF 
NOMINAL  GNP 

PARAMETER 

SHFSAV 

0.230 

FOREIGN  SAVING  SHARE  OF 
INVESTMENT 

PARAMETER 

SHGSAV 

• 

-24.778 

GOVERNMENT  SAVING  SHARE  OF 
INVESTMENT 

PARAMETER 

SHPSAV 

= 

124.548 

PRIVATE  SAVING  SHARE  OF 
INVESTMENT 

— 

1297 

PARAMETER 

COLIND 

= 

100.000 

COST  OF  LIVING  INDEX 

PARAMETER 

EXRIND 

= 

100.000 

REAL  EXCHANGE  RATE  INDEX 

PARAMETER 

NGNP 

= 

3166.000 

NOMINAL  GNP 

PARAMETER 

PDIND 

= 

100.000 

DOMESTIC  SUPPLY  PRICE  INDEX 

PARAMETER 

PIND 

= 

100.000 

COMPOSITE  GOOD  PRICE  INDEX 
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PARAMETER 

PEIND 

= 

100.000 

DOMESTIC  EXPORT  PRICE  INDEX 

PARAMETER 

PM  I  NO 

= 

100.000 

DOMESTIC  IMPORT  PRICE  INDEX 

PARAMETER 

PWE I  NO 

= 

100.000 

WORLD  EXPORT  PRICE  INDEX 

PARAMETER 

PUMIND 

= 

97.501 

WORLD  IMPORT  PRICE  INDEX 

PARAMETER 

PXIND 

= 

100.000 

PRODUCER  PRICE  INDEX 

----  1349 

PARAMETER  i 

GNPTAB 

GNP  ACCOUNTS 

NOMINAL 

REAL 

NOMSHARE 

REALSHARE 

DEFLATOR 

CONSMPT 

2050.701 

2050.702 

64.773 

64.773 

100.000 

INVESTMENT 

471.800 

471.800 

14.902 

14.902 

100.000 

INVENTORY 

-24.501 

-24.501 

-0.774 

-0.774 

100.000 

GOVERNMENT 

641.700 

641.700 

20.268 

20.268 

100.000 

EXPORTS 

361.900 

361.900 

11.431 

11.431 

100.000 

IMPORTS 

-335.600 

-335.600 

-10.600 

-10.600 

100.000 

GNP 

3166.000 

3166.001 

100.000 

100.000 

100.000 

....  1349 

PARAMETER  i 

GNPTAB2 

SECTORAL  VALUE  ADDED 

NOMINAL 

REAL 

NOMSHARE 

REALSHARE 

DEFLATOR 

LVSTK 

11.176 

11.176 

0.353 

0.353 

99.999 

EXPCRP 

30.666 

30.666 

0.969 

0.969 

100.000 

OTHCRP 

15.585 

15.585 

0.492 

0.492 

100.000 

AGPROC 

109.400 

109.400 

3.455 

3.455 

100.000 

AGINP 

40.316 

40.316 

1.273 

1.273 

100.000 

INTMNF 

296.374 

296.374 

9.361 

9.361 

100.000 

FDMNF 

322.350 

322.351 

10.182 

10.182 

100.000 

TRDTRN 

513.082 

513.082 

16.206 

16.206 

100.000 

SERVICE 

1638.117 

1638.117 

51.741 

51.741 

100.000 

RESTA 

188.934 

188.934 

5.968 

5.968 

100.000 

----  1349  PARAMETER 

SUMGNP 

AGGREGATE  GNP 

NOMINAL  3166.000, 

REAL 

3166.001,  NOMSHARE 

100.000 

REALSHARE  100.000 


1349 

PARAMETER 

GNPRATIO 

1.000 

GNP  VALUE  ADDED  CORRECTION 
FACTOR 

.... 

1379 

PARAMETER 

ABSORB 

ABSORPTION  TABLE  (REAL) 

E 

M 

GNP 

c 

I  G 

TOTAL 

AG 

NON-AG 

361.900 

19.636 

342.264 

344.200 

3.553 

340.647 

3166.001 

43.127 

3122.874 

2050.702 
19.000 

2031.702 

471.800  641.700 

8.587 

471.800  633.113 

+ 

NETE-M 

T-G 

ABSORB 

TOTAL 

AG 

NON-AG 

17.700 

16.083 

1.617 

-110.833 

3164.202 

27.587 

3136.615 

.... 

1398 

PARAMETER 

AVGWF 

AVERAGE 

FACTOR  PRICE  I 

CURRENT  WEIGHTS 

LABOR 

19. 

733,  CAPITAL  0.157, 

,  LAND 

0.053 

1398 

PARAMETER 

AVGPROFIT 

— 

0.157 

AVERAGE  PROFIT  RATE 

75 


.... 

1398  PARAMETER 

VALADD 

VALUE 

ADDED  AT 

MARKET  PRICE 

LVSTK 

11.176, 

EXPCRP 

30.666, 

OTHCRP 

15.585, 

AGPROC 

109.400 

AGINP 

40.316, 

INTMNF 

296.374, 

FDMNF 

322.350, 

TRDTRN 

513.082 

SERVICE 

1629.517, 

RESTA 

188.934 

.... 

1398  PARAMETER 

SECTORY 

VALUE 

ADDED  AT 

FACTOR  COST 

LVST< 

9.807, 

EXPCRP 

29.389, 

OTHCRP 

15.199, 

AGPROC 

98.626 

AGINP 

34.223, 

INTMNF 

269.408, 

FDMNF 

312.654, 

TRDTRN 

437.355 

SERVICE 

1542.043, 

RESTA 

158.519 

.  .  •  • 

1421  PARAMETER 

FACTORS 

FACTOR 

1  RETURNS 

DISTRIBUTIVE 

PARAMETERS 

YF 

YFCAP 

PROFIT 

RENTAL 

RDIST 

WDCAP 

LVSTK 

9.807 

5.015 

0.063 

0.063 

0.401 

0.401 

EXPCRP 

29.389 

9.644 

0.133 

0.133 

0.852 

0.852 

OTHCRP 

15.199 

3.808 

0.141 

0.141 

0.899 

0.899 

AGPROC 

98.626 

32.884 

0.362 

0.362 

2.313 

2.313 

AGINP 

34.223 

13.975 

0.174 

0.174 

1.111 

1.111 

INTMNF 

269.408 

115.536 

0.201 

0.201 

1.285 

1.285 

FDMNF 

312.654 

49.561 

0.170 

0.170 

1.087 

1.087 

TRDTRN 

437.355 

107.022 

0.207 

0.207 

1.325 

1.325 

SERVICE 

1542.043 

493.262 

0.127 

0.127 

0.814 

0.814 

RESTA 

158.519 

146.611 

0.229 

0.229 

1.464 

1.464 

+ 

YFLABOR 

WD LABOR 

YFLAND 

WDLAND 

PINT 

INTINP 

LVSTK 

4.793 

0.585 

0.855 

65.939 

EXPCRP 

3.324 

0.432 

16.421 

0.896 

0.573 

41.108 

OTHCRP 

4.907 

0.501 

6.484 

1.415 

0.413 

10.958 

AGPROC 

65.741 

0.929 

0.720 

281.746 

AGINP 

20.248 

1.156 

0.848 

224.964 

INTMNF 

153.872 

1.384 

0.572 

395.377 

FDMNF 

263.093 

1.346 

0.606 

495.242 

TRDTRN 

330.333 

0.898 

0.346 

271.986 

SERVICE 

1048.781 

0.956 

0.375 

979.530 

RESTA 

11.908 

0.563 

0.182 

42.005 

....  1421 

PARAMETER 

COEFFS 

SHIFT 

ALPHAL 

ALPHAC 

ALPHAP 

RMD 

DELTA 

AD 

LVSTK 

0.489 

0.511 

0.008 

0.233 

12.617 

EXPCRP 

0.113 

0.328 

0.559 

0.002 

0.177 

0.751 

OTHCRP 

0.323 

0.251 

0.427 

0.111 

0.366 

2.182 

AGPROC 

0.667 

0.333 

0.071 

0.211 

37.138 

AGINP 

0.592 

0.408 

0.096 

0.042 

47.468 

INTMNF 

0.571 

0.429 

0.138 

0.067 

16.892 

FDMNF 

0.841 

0.159 

0.213 

0.152 

48.285 

TRDTRN 

0.755 

0.245 

0.002 

0.004 

18.680 

SERVICE 

0.680 

0.320 

0.019 

2.580477E-9 

12.075 

RESTA 

0.075 

0.925 

0.583 

.... 

1507  PARAMETER 

PRICRES1 

PRICE  RESULTS 

BY  SECTOR 

PX 

PE 

PM 

P 

PD 

PVA 

LVSTK 

1.000 

1.000 

1.000 

1.000 

1.000 

0.127 

EXPCRP 

1.000 

1.000 

1.000 

1.000 

1.000 

0.409 

OTHCRP 

1.000 

1.000 

1.000 

1.000 

1.000 

0.573 

AGPROC 

1.000 

1.000 

1.000 

1.000 

1.000 

0.252 

AGINP 

1.000 

1.000 

1.000 

1.000 

1.000 

0.129 

INTMNF 

1.000 

1.000 

1.000 

1.000 

1.000 

0.389 
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FDMNF 

1.000 

1.000 

1.000 

1.000 

1.000 

0.382 

TRDTRN 

1.000 

1.000 

1.000 

1.000 

1.000 

0.557 

SERVICE 

1.000 

1.000 

1.000 

1.000 

1.000 

0.591 

RESTA 

1.000 

1.000 

1.000 

1.000 

1.000 

0.686 

+ 

PUE 

PROFIT 

RENTAL 

PINT 

PUM 

LVSTK 

1.000 

0.063 

0.063 

0.855 

0.987 

EXPCRP 

1.000 

0.133 

0.133 

0.573 

0.972 

OTHCRP 

1.000 

0.141 

0.141 

0.413 

0.964 

AGPROC 

1.000 

0.362 

0.362 

0.720 

0.897 

AGINP 

1.000 

0.174 

0.174 

0.848 

0.997 

INTMNF 

1.000 

0.201 

0.201 

0.572 

0.982 

FDMNF 

1.000 

0.170 

0.170 

0.606 

0.973 

TRDTRN 

1.000 

0.207 

0.207 

0.346 

0.973 

SERVICE 

1.000 

0.127 

0.127 

0.375 

1.000 

RESTA 

1.000 

0.229 

0.229 

0.182 

1.000 

.... 

1507  PARAMETER 

QUANTRES1 

QUANTITY 

RESULTS  BY  SECTOR 

LABOR 

CAPITAL 

LAND 

XD 

E 

M 

LVSTK 

0.415 

79.843 

77.115 

0.212 

0.654 

EXPCRP 

0.390 

72.291 

342.601 

71.773 

17.907 

0.117 

OTHCRP 

0.496 

27.070 

85.649 

26.543 

1.517 

2.782 

AGPROC 

3.585 

90.829 

391.146 

18.227 

26.563 

AGINP 

0.887 

80.392 

265.279 

19.341 

23.669 

INTMNF 

5.635 

574.658 

691.751 

46.869 

89.196 

FDMNF 

9.908 

291.267 

817.593 

108.003 

151.446 

TRDTRN 

18.648 

516.105 

785.068 

37.123 

1.845 

SERVICE 

55.606 

3871.779 

2609.048 

107.252 

47.928 

RESTA 

1.071 

639.836 

230.939 

5.449 

+ 

X 

XXD 

VALADD 

SECTORY 

LVSTK 

77.557 

76.903 

11.176 

9.807 

EXPCRP 

53.983 

53.866 

30.666 

29.389 

OTHCRP 

27.808 

25.026 

15.585 

15.199 

AGPROC 

399.482 

372.919 

109.400 

98.626 

AGINP 

269.608 

245.939 

40.316 

34.223 

INTMNF 

734.078 

644.882 

296.374 

269.408 

FDMNF 

861.035 

709.590 

322.350 

312.654 

TRDTRN 

749.790 

747.945 

513.082 

437.355 

SERVICE 

2549.724 

2501.795 

1629.517 

1542.043 

RESTA 

225.490 

225.490 

188.934 

158.519 

•  «  •  • 

1507  PARAMETER 

SCALRES1 

AGGREGATE 

VARIABLES 

EXR 

1.000, 

PINDEX 

1.000, 

GDTOT 

641.700, 

INVEST 

447.299 

SSTAX 

269.535, 

ENTTAX 

63.080, 

TOTHHTAX 

409.336, 

REMIT 

-1.250 

GENT 

47.530, 

HHT 

396.250, 

FBOR 

-26.080, 

ENTSAV 

20.030 

HHSAV 

153.908, 

GOVSAV 

-110.833, 

FSAV 

1.030, 

RGNP 

3166.001 

GNPVA 

3166.000, 

FXDINV 

471.800, 

GR 

974.647, 

TARIFF 

8.600 

INDTAX 

250.176, 

SAVINGS 

447.299, 

DEPRECIA 

383.164 
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1547  PARAMETER  SAM 


SOCIAL  ACCOUNTING  MATRIX 


COMMDTY 

ACTIVITY 

VALUAD 

INSTTNS 

HOUSEHOLDS 

GOVT 

COMMDTY 

2808.854 

2050.701 

641.700 

ACTIVITY 

5604.354 

VALUAD 

2907.224 

INSTTNS 

2637.689 

47.530 

HOUSEHOLDS 

2218.945 

396.250 

GOVT 

8.600 

250.176 

269.535 

63.080 

409.336 

KACCOUNT 

403.194 

153.908 

-110.833 

WORLD 

335.600 

1.250 

26.080 

TOTAL 

5948.554 

5966.254 

2907.224 

2685.219 

2615.195 

1000.727 

+ 

KACCOUNT 

WORLD 

TOTAL 

COMMDTY 

447.299 

5948.554 

ACTIVITY 

361.900 

5966.254 

VALUAD 

2907.224 

INSTTNS 

2685.219 

HOUSEHOLDS 

2615.195 

GOVT 

1000.727 

KACCOUNT 

446.269 

WORLD 

-1.030 

361.900 

TOTAL 

446.269 

361.900 

****  FILE  SUMMARY 

INPUT  G:\US82.GMS 
OUTPUT  G:\US82.LST 

EXECUTION  TIME  =  12.140  SECONDS  VER:  386- EK- 008 


78 


*U.S. GOVERNMENT  PRINTING  OFF  I CE :  1  9 9 0-2 6 1 -4 2 0  :  2 0 5 2 2 / E R 


1 


22255928 


Get  these  timely  reports  from  USDA’s 
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Agricultural  Outlook.  Presents  USDA’s  farm  income  and  food  price  forecasts.  Emphasizes  the  short-term 
outlook,  but  also  presents  long-term  analyses  of  issues  ranging  from  international  trade  to  U.S.  land  use  and 
availability.  11  issues  annually.  1  year,  $26;  2  years,  $51;  3  years,  $75. 
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Economic  Indicators  of  the  Farm  Sector.  Updates  economic  trends  in  U.S.  agriculture.  Each  issue  explores 
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4  issues  annually.  1  year,  $8;  2  years,  $15;  3  years,  $21. 

Foreign  Agricultural  Trade  of  the  United  States.  Updates  the  quantity  and  value  of  U.S.  farm  exports  and 
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